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C'est pour peuvoir faire face à une 
demande plus de dix fois 
supérieure à ce qui avait été prévu 
qu'Hello a décidé de lancer une 
nouvelle fabrication de 2 000 
cartes Apple-Tell. Avantage de 

la grande série : de très sensibles 
réductions de coût sur le prix des 
cemposants LS et VLSI, 
permettant de fire chuter de plus 
de 20 % le prix de la carte 
Apple-Tell. 

Le modem vedette de votre Apple, 
déjà couronné Pomme d'Or 1983, 
a suscité en 1984 trois nouvelles 
Pommes d'Or. récompensant trois 
des (très nombreux) logiciels que 
ses Litilisateurs ont déjà dédiés 

à Apple-Tell , 

— MICRO-KDS : serveur 
monovoie pour les établissements 
d'enseignement. 

— VASA : outil de composition 
de pages vidéotex incluant 

un serveur arberescent complet. 
—D TÉLÉBASIC : Basic télécom 

et vidéotex. destiné à la création 
de serveurs et de terminaux 
automatiques. 


Parmi les autres logiciels créés pour 
Apple-Tell 
— TELEPOM : enrichissement 
du Basic (60 instructions nouvelles) 
pennettant de créer soi-même 
des teneurs (Ascii et vidéotex), 
des messagenes ou leutes applications 
télénratiques. 
—> ASCII EXPRESS : outil général 
de télécom destiné à permettre 
l'impression et le stockage des 
données reçues. incluant un 
émulateur universel de terminaux 
— PROTEXT : éditeur-souris, 
permettant la composition (texte el 
dessins) de pages Télétel destinées 
à des serveurs 
— FAKIR : serveur Asci 
messagerie électronique intégrée. 
incluant panneau d'annenees. 
amtuure des 1bonnés. 
téléchargement. hurlege temps réel, 
nunts de passe, console epérateur 
etc). 
—> DISCOBOLE : cepie de disquettes 
par téléphone {Das MemDos. Pascal 
CP M) 
—> T'RANSTEXT : convertisseur 
d'écrans (Haute Résolution 

Télétel). 
D BAS : medule-système 
permettant la commande du modem 
depuis Îe Basic, sous Profos 
—> PROSPECTOR : générateur 
d'étiquettes-adresses par consultation 
automatique de l'annuaire 
électronique selon des choix 
socioprofessionnels ct géographiques 
D CALVARKIT : consultation 


autematisée du centre serveur 
-Cavados” 

—> PELAGIE : serveur spécialisé, 
permettant la consultation d'un Apple 
à partir d'un réseau de minitels. 
(Deux versions : Basic/Dos 3.3 el 
MemDos.) 

—DNESTORA : serveur à QUATRE 
ACCÈS SIMULTANÉS. disque dur 
10 Mo. gesuon automatique des 
touches de fonctions du minitel, 
arberescence et mots clés intégrés 
—D NEST'ORI : serveur menovoic 











(même caractéristiques que Nestor) 
… Les serveurs sont servis ! 





e Un logcwl d'émulauon de 

Minitel enrichi des funeuses trois 
fonctions don l'absence est une masèdie 
quotidtenne pour les utilisateurs 

de Téléte] 

IMPRESSION tsur imprimante 





STOCKAGE sur disqueltes des pages 
consultées (formats Télètel eu Asci). 
AUTOMATISME : interrogation 
autematique des serveurs (appel 
téléphonique. orientation Transpac. 
identification. choix successifs}. 


enregistrement des données consultées. 


puis traitement ét ICO portion 

des données dans l'application 

(Ces precédures d'interrogation sont 
créées par l'utilisateur, sans aucun 
langage de pragrammation. grâce au 
moe APPRENTISSAGE d'Apple-Tell } 
Entin et surtout, une jonction est 
possible avec les outils de travail 
babituels (Apple- Writer. Visicalc, 
Multiplan. PFS, Quick-File, 
« 1l MA, 


ONU 
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CARACTÉHISTIQUES 
GÉNÉRALES : 
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@AUO-CNNCNON. Permelan le creution dé 
serveurs 400 où 1 200 hauals 
e sorties à vaico couhposite EX & 1) ut Péritel 
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Editorial 


Vous êtes nombreux, déjà plusieurs centaines, à avoir répondu au questionnaire publié dans le numéro 
17 de Porm's. La liste des gagnant se trouve en page 55. Les lecteurs qui ne l'ont pas encore rempli 
peuvent toujours le faire. En effet. une revue comme la nôtre est en pennanence à l'écoute de son 
lectorat. et ce sondage est le meilleur moyen de connaître vos besoins. Nous ne powrons pas, bien 
entendu, satisfaire toutes vos requétes, dans la mesure où certaines d’entre elles sont contradictoires, 
mais nous tiendrons compte de toutes les remarques. Les résultats détailllés de ce sondage paraîtront 
dans le numéro 19. 


Nous tenons à rendre hommage à la revue Golden pour son bon goût : elle apprécie tellement Pom's 
qu'elle à publié dans un récent numéro, sous la plume de Joël Bernard, la transposition en assembleur 
du programme ‘Un analyseur de syntaxe” écrit par Olivier Herz et publié dans Pom's 6. En désassem- 
blant cette contribution ‘originale”, on retrouve l'algorithme d'Olivier, avec à peine quelques petites 
améliorations. Pour ne pas priver les fidèles lecteurs de Pom's, nous leurs offrons dans le prochain 
numéro une version en assembleur de ce progamme par Carlos Sacré ; celle-ci permet, en outre, 
d'analyser de façon automatique tous les fichiers Basic d’une disquette. 


Puisque nous parlons de coniributions, rappelons que nous demandons aux auteurs de nous envoyer 
sur une disquette les fichiers programme et le texte de l'article sous forme de fichier TEXT {de préfé- 
rence AppleWriter ou fichier ASCII sur Macintosh, mais ce n'est pas très important). Nous souhaitons 
que, de façon générale, les articles suivent le plan suivant : objet du progamme, mode d'emploi, expli- 
cations techniques. Nous essayons de généraliser ce plan dans les articles de Pom's, afin de faciliter au 
lecteur non spécialiste l’utilisation des merveilleux programmes de votre revue préférée. Dans la même 
ligne d'idée, vous verrez avant la fin de l’année un livre regroupant les objets et modes d'emploi de 
tous les programmes de Pom's depuis le péché de gourmandise d'Adam. 


Dans ce numéro, vous trouverez, comme à l'habitude les rubriques Counrier des lecteurs, Micro-infor- 
mations et Bibliographie que nous devons à Olivier Herz, Jean-Michel Gourévitch, et Alexandre 
Duback. Un sommaire des anciens numéros de Pom's vous est proposé, il vous permettra de trouver 
rapidement l'article qui vous intéresse, afin de compléter votre collection. 


Pom's à rencontré le célèbre pirateur de logiciel Aldo Reset... François Sermier nous offre la possibi- 
lité de sauver, sur la méme disquette, des fichiers DOS 3.3 et ProDOS, tandis que Gérard Michel 
nous propose une saisie de variables par écran. 

Olivier Herz teste pour vous le logiciel Porte-Parole et illustre, grâce à un programme de Régis 
Lardennois , l’article sur les pointeurs en Pascal UCSD publié dans le précédent numéro. 


Les fenêtres du Macintosh ont inspiré Georges Zwingelstein ; il à écrit un progamme de gestion de 
fenêtres pour les Apple //. 
Dans chaque numéro de Pom's {ou presque), plusieurs pages sont consacrées au graphisme ; ainsi, 


Thierry Han nous propose des “Graphiques Aléatoires” et Marc Debuigne une hard copy de la page 
HGR étendue. 


Jean-Pierre Januel nous offre la possibilité d'utiliser le DOS de façon tout à fait transparente, tandis 
que Patrice Neveu recherche et touve instantanément des mots ou groupe de mots dans un tableau 
de chaînes alphanumériques. Dans le Cahier Mac, Marianne Sutz explique comment récupérer les 
icônes du système depuis un programme Basic, tandis que Jean-Luc Bazaneguemodife les informa- 
tions pour le Finder. Enfin, dulien Thomas analyse les curseurs du système. 


Nous nous retrouverons enfin tous lors du grand délire d'Apple Expo, du 14 au 16 juin où, outre le 
stand de Pom's, vous pourrez apprécier de nombreuses manifestations. Nous recommandons tout parti- 
culiérement le débat passionnant que notre collègue Jean-Louis Courleux (France Inter) organise le 
dimanche après-midi, mettant face à face des auteurs de logiciels beskellers et les plus prestigieux 
pirateurs de logiciel français. 

[l'est impottant de préciser que l'entrée à Apple Expo est gratuite pour les membres du Club Apple. Les 
lecteurs de Pom's, quant à eux. bénéficieront d'une remise de 50% sur présentation du dernier nu- 
méro. 

Hervé Thiriez 


REIMS Hat 


\atsrét 
: pb Tr À 
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DRIVE CHINON 


32 
5 1/4 COMPATIBLE APPLE I1+,lle,llc 
NOUVEAU: Côble pour Ilc 


- 1/2 HAUTEUR 

- 40 PISTES (48 T.P.I) 

- 143 Ko SOUS DOS 3.3 

- 160 Ko SOUS DOS MODIFIE 

- DETECTION DE PISTE O ET PROTECTION 
- ECRITURE PAR OPTO-ELECTRONIQUE 

- MOTEUR A ENTRAÎNEMENT DIRECT 

- SYSTEME DE FERMETURE BREVETE 
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PROMOTION Floppy double 2 521 Frs H.T 2 990 Frs T.T.C 
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Ce lecteur de disquette a été homologué par la FRAMIF, 


l’Aérospatiale,le club Thomson,etc… 


- HAUTE FIABILITE 

- SILENCIEUX 
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-GARANTIE 1 AN 
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Auires modèles disponibles pour 1ous micros (nous contacter) 


O| -Carte 80 colonnes étendue 990T.T.C 
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%| -Moniteurs 12” haute résolution vert ou orange 990 Frs T.T.C 
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Disquette mixte ProDOS/DOS 3.3 


Principe 


Vous venez de découvrir ProDOS, 
particulièrement la grande facilité de 
l'accès disque au niveau du bloc à 
partir du Basic (nous allons y reve- 
nir..), mais vous aimez bien DOS 
3.3 et d'ailleurs beaucoup de vos 
programmes style ZAP ne sont pas 
compatibles ProDOS... 

Ou encore, vous échangez des dis- 
quettes de programmes avec des 
amis et il vous faut toujours 2 dis- 
quettes différentes (ou 2 faces), une 
pour DOS 3.3, une pour ProDOS; 
cela finit par poser des problèmes 
(exemple : disquette Pom's). 

Vous aimeriez bien avoir tout cela 
sur une même disquette. Et bien 
c'est dorénavant possible avec le jeu 
de programmes présentés ici. 


La démarche à suivre est (relative- 

ment) naturelle : 

e Initialiser une disquette ProDOS à 
l’aide du FILER 

e Modifier à la main, à l’aide d'un 
utilitaire de type ZAP. le Volume 
Bit Map (équivalent ProDOS du 
VTOC 3.3), pour limiter la partie 
utilisée par ProDOS 

© Créer à la main une piste CATA- 
LOG 3.3 et un VTOC s’attibuant 
la partie non ProDOS. 


Le programme INITPRO3.3 ci-après 
se charge automatiquement des deux 
demières étapes. I] vous demande 
seulement à partir de quelle piste 
vous désirez que commence la partie 
DOS 3.3 (par défaut, il coupera la 
disquette en 2,parties égales, au mi- 
lieu de la piste 17). Il vous demande 
également si vous désirez raccourcir 
le Directory ProDOS : comme la dis- 
quette contient moins de blocs. vous 
pouvez ramener le Directory de 4 à 
2 blocs et récupérer ainsi 1K octets 
de mémoire disque (cela vous laisse 
tout de même 25 entrées. dont 
d'éventuels SubDirectory au CATA- 
LOG, au lieu de 5t) Même pro- 
blème pour la partie DOS 3.3, où la 
taille du CATALOG peut être fixée 
de 4 secteurs minimum à 15 maxi- 
mum. 


Remarque importante : normale- 
ment, tronquer le répertoire est sans 
danger... mais, on peut avoir des sur- 
prises : ainsi, CONVERT lit d'autorité 
les 15 secteurs de la piste 17 sans 
s'occuper de leur chaînage ni s’arré- 
ter à la première entrée vide, il si- 
gnale une erreur mais on peut pour- 
suivre et transférer tous les fichiers 
que l'on veut. Pire encore. la dis- 
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quette “Utilitaires //c" refuse de re- 
connaître un volume ProDOS dont 
le répertoire est tronqué pour l'opé- 
ration Identifier / Lister Volume. mais 
accepte tout autre opération (copier 
fichier. transférer) bizarre ! Notez 
également qu'elle refuse obstinément 
de reconnaître la partie DOS 33 
d'une disquette mixte: on ne peut 
donc pas convertir sur la même dis- 
quette avec Utilitaires //c. Par contre. 
cela est parfaitement possible avec 
CONVERT 


La disquette produite par INIT- 
PRO33 est lisible par ProDOS et 
DOS 3.3 Attention. un même pro- 
gramme ou fichier ne peut être lu 
que par l'un des deux DOS: il faut 
toujours recourir à CONVERT si l'on 
veut le faire passer d'une moitié à 
l'autre. Par contre la disquette n’est 
pas bootable ni en ProDOS ni en 
DOS 3.3 Ceci est normal en 
ProDOS où il faut la rendre explicite- 
ment bootable en y transférant 
PRODOS et BASIC.SYSTEM (ou 
tout autre programme de type SYS- 
TEM). On peut enfin simuler un boot 
DOS 3.3 en copiant DOS 3.3 sur la 
partie ProDOS et en appelant 
HELLO.OBJ] qui se charge du reste 


Ceci n'est que le premier pas vers un 
système totalement mixte où le Basic 
Applesoft pourra au choix utiliser 

ou ProDOS permettant de 
CONVERTir très élégamment ces 
programmes Basic ou binaire. Mais 
n'anticipons pas... 


Secteurs, Blocs et MLI 


L'ensembie de l’opération est réalisa- 
ble car tous les systèmes d'exploita- 
tion (y compris CP'M et Pascal 
UCSD, voir programme INITPAS3 3 
dans le prochain numéro) utilisant le 
DISK Il d'Apple s'appuient sur une 
même sectorisation physique de la 
disquette. Les différences viennent 
du fait que. pour diverses raisons. la 
sectorisation logique de la disquette 
n'est pas identique. c'est ce qu’on 
appelle l’entrelacement (interleaving). 
De plus en ProDOS, l'accès disque le 
plus élémentaire s'effectue non plus 
secteur par secteur mais par groupe 
de 2 secteurs appelé bloc. À noter 
que l'idée de piste n'existe plus en 
ProDOS. 


Les deux tables suivantes permettent 
de voir la correspondance entre les 
différentes notions de sectorisation 
pour la piste O 


D  _ __ _ ___ _* 
7 


François Sermier 


TABLE 1 


emplacement physique : 
0123456789ABCDE 


secteur logique DOS 3.3 
07E6D5C4B3A2918 


bloc logique ProDOS 
OA 4A OB 4B 1A SA IB 5B 2A 6A 
2B 6B 3A 7A 3B 7B 


TABLE 2 


blocs ProDOS 
01234567 


secteurs DOS 
O-E D-C B:-A 9.8 7-65-43.2 I.-F 


Pour les autres pistes, ces tables res- 
tent valables et relient le reste de la 
division par 8 du numéro de bloc et 
les secteurs DOS correspondants. Le 
numéro de piste est le quotient de la 
division par 8 du numéro de bloc. 
Exemple. 

piste 17, secteur 7: début du bloc 
numéro 8*17 +4 soit 140 
réciproquement, bloc 100 = piste 
numéro (100/8) soit 12. reste 4 donc 
secteurs 7 et 6. 


On pourrait réaliser la conversion par 
les routines Basic suivantes : 


BLOC --> PISTESECTEUR 


PISTE = iNT (BLOC / 8}: 

RESTE = BLOC -—8 + PISTE: 

S1 =15 — 2 + RESTE: S2=SI-1 
IF S1=0 OR Si=15 THEN 
SI1=15-S1 


PISTESECTEUR --> BLOC 


IF S=0 OR S=15 THEN S=15-S 
RANG = 0:IF S =2 « INT(S/2) 
THEN RANG = 1 (ou simplement : 
RANG ={(S = 2 » INT(S / 2))} 
BLOC = 8:PISTE +(7—INT(S/2)) 


L'accès disque au niveau du bloc est 
extrêmement simple par l'intermé- 
diaire de MLI (Machine Language In- 
terface) qui regroupe un ensemble 
de 26 subroutines ProDOS repérées 
par un code et appelées de manière 
standardisée.  MLICALL montre 
comment utiliser cet appel MLI (voir 
listing MLICALL.SCE): l'appel de 
MLI doit étre suivi du code de la 
fonction appelée et de l'adresse de la 
table des paramètres de la fonction 
Le retour de MLI se fait en sautant 
ces 3 octets. L'indicateur de retenue 
(Carry) est mis à 1 s'il s'est produit 
une erreur, le code de l'erreur est 
contenu dans l'accumulateur. On 
peut alors faire un traitement d’er- 
reur, Cependant, il y a beaucoup 
d'erreurs possibles (29), aussi le plus 





efficace consiste à utiliser celui qui est 
fourni par le Basic : JSR BADCALL 
($BE8B) analyse les 29 erreurs MLI 
en 19 erreurs reconnues par l'inter- 
préteur Basic (Bi) et JSR ERROUT 
($BEO9) entre dans le traitement 
d'erreur Basic (cette méthode très 
simple n'est pas très documentée). 
La liste des paramètres dépend de la 
fonction appelée et est extrêmement 
bien documentée (voir la bibliogra- 
phie). 


La structure d’un volume 
ProDOS 


Un volume ProDOS est donc simple- 

ment une succession de blocs, nor- 

malement 280, sur une disquette 35 

pistes. Cependant tous ne sont pas 

disponibles, en effet le début du vo- 

lume est occupé par 7 blocs spéciaux 

que nous allons analyser. 

e blocs O—1 : 
Programme en langage machine 
exécuté automatiquement lors du 
boot. Il cherche sur la disquette un 
fichier du nom de PRODOS, sil 
ne le trouve pas, il affiche UNA- 
BLE TO LOAD PRODOS et se 
plante (cas d'une disquette de 
données), sinon il le charge en 
$2000 puis saute en $2000. Voir 
la suite des aventures de ProDOS 
lors du boot dans Beneath Apple 
ProDOS par exemple. 

e blocs 2-5: 
Répertoire (directory) du volume 
Chacun des 4 blocs est composé 
des éléments suivants : 
— 2 octets réalisant le chaînage 
arrière des blocs du répertoire Ils 
contiennent le numéro du bloc 
précédent où O0 s'il ny a pas de 
précédent. 
— 2 octets réalisant le chaînage 
avant … numéro du bloc suivant 
ou O si … 
— 13 groupes de 39 octets. cha- 
que groupe décrivant un fichier du 
volume sauf le tout premier des 
52 qui décrit le Volume lui-méme. 
Le bloc 2 qui contient ce groupe 
crucial pour l'accès au disque a 
reçu le nom de bloc clé 

e bloc 6 
Image logique de l'occupation de 
la disquette (Volume Bit Map). A 
chaque bloc du volume est associé 
un bit dans ce secteur: si le bloc 
est utilisé. le bit correspondant est 
à O, s’il est libre. le bit est mis à 1 
Le premier octet décrit l'utilisation 
des blocs O à 7 Pour une dis- 
quette fraichement initialisée (pas 
d'autre opération), il doit valoir 1 
En effet, on vient de voir que les 
blocs O0 à 6 sont occupés, d'où en 
représentant cet octet sur les 8 
bits : 


(voir schéma) 


Remarquez que seuls les blocs O à 
2 sont à un emplacement rigide, 
puisque l'accès aux autres se fait 
par l'intermédiaire du bloc 2 (chaï- 
nage des blocs du répertoire et 
pointeur sur le bloc VBM) On 
peut donc déplacer les autres ou 
mème les supprimer (sauf évidem- 
ment le VBM ff). 


(voir tableau 3) 


Le programme 
INIT PRO3.3 


Sa structure est très simple, elle est 
purement linéaire. On a essayé de 
rendre aussi lisible que possible les 
lectures / écritures de blocs et d'ac- 
cepter les options par défaut par un 
simple RETURN. 


Lignes 10 à 70 : initialisation et vérifi- 
cation du volume. On pourrait tester 
si l'opération de mixtage n'a pas déjà 
été effectuée en testant DOS=1 en 
ligne 80. Ce morceau appelle un 
sous programme en 3000 qui assure 
diverses tâches d'intendance . le Bip 
ProDOS tel qu'il est décrit par Apple 
(ProDOS Tech. Man.). mise en place 
de MLICALL (notez que les lignes 
3090 à 3110 mettent en évidence la 
structure d’un appel MLI et permet- 
tent en modifiant les lignes 
3040-3050 de placer le bout de 
code machine n'importe où ailleurs 
que dans l’archi-usée page 3...}. 


Lignes 100 à 130: lecture du bloc 
clé (premier bloc du Directory). On y 
trouve successivement : 

e le nom du volume (reconstitué par 
le sous programme en 900}. 

e le pointeur vers le Volume Bit 
Map (VBM. normalement = 6 
sauf si l'on a déjà tronqué le Di- 
rectory auquel cas VBM=4), 

e le nombre de blocs du volume 
(NB, normalement = 280 sauf si 
la disquette a déjà été trafiquée 
auquel cas la valeur de NB est im- 
prévisible .), on en déduit le nu- 
méro de la dernière piste ProDOS 
(PM. normalement = 34) 
Remarquez que le volume à modi- 
fier doit se trouver dans le lecteur 
2. on peut le mettre ailleurs mais il 
faut modifier la valeur de UNIT en 
ligne 3040 


Lignes 140 à 230: vous entrez vos 
options. Par défaut, le roi Salomon 
tranche au milieu de la disquette. Si 
le Directory est déjà tronqué. vous 
n'avez pas le choix. il le restera 


Lignes 240 à 360: mise à jour du 
Volume Bit Map. Si l'on rajoute de la 
place ProDOS sur une disquette déjà 
mixte. on libère les blocs correspon- 
dants (il se peut que l'on perde des 
fichiers DOS 33jlligne 260) En 
270-280. on vérifie que la place 
consacrée au DOS 33 (c'est-à-dire 
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les pistes de P1 à P2 plus la piste ré- 
pertoire) n'est pas déjà occupée par 
du ProDOS. Le sous-programme en 
800 examine l'occupation de chaque 
piste par ProDOS; à la première qu'il 
trouve non vide, il vous le signale et 
vous laisse la possibilité de ne tou- 
cher à rien. Si vous persistez, en 
840, on marque la piste comme oc- 
cupée. C'est indispensable, bien sûr 
pour la piste 17, mais aussi pour les 
pistes situées dans la partie DOS. car 
leurs numéros de blocs dépassent la 
valeur maximale prévue dans le bloc 
clé du volume et si MLI y trouve un 
octet non nul (c'est-à-dire un bloc 
libre), il considère que le Volume Bit 
Map a été détérioré d'où erreur, tra- 
duite par BI en une inexplicable {/O 
ERROR. 


Le test de la ligne 830. autorise à 
tenter l'expérience sur une disquette 
contenant déjà des fichiers. Il n’y a 
aucune difficulté si aucun bloc n'est 
occupé aprés le bloc numéro 135. 
Mais si des fichiers existaient sur la 
partie détruite, ils seront détruits phy- 
siquement sur la disquette, mais pas 
dans le répertoire (il faudrait pour 
cela analyser l'intégralité du réper- 
toire et des listes de blocs des fi- 
chiers). De plus, si on essaie malgré 
tout d'y accéder, y compris pour les 
DELETEr, on provoquera une [/O 
ERROR. car le driver devra aller lire 
un bloc situé au-delà de son dernier 
bloc. Il vaut mieux éviter de poursui- 
vre (option par défaut.) S'il faut 
tronquer le Directory, on libère 2 
blocs en piste O (si ce n'est pas déjà 
fait. ligne 290) et on réécrit VBM à 
son nouvel emplacement. 


Lignes 310 à 360: mise à jour du 
bloc clé, c’est-à-dire du nombre de 
blocs. du pointeur sur VBM: et mise 
à jour du chaînage entre blocs du Di- 
rectory {ligne 360 si nécessaire). 


Lignes 500 à fin. écriture du Direc- 
tory 33. VTOC en $11/0. Catalog 
de $11/F à $11/1 au plus On véri- 
fiera que. quelle que soit la valeur de 
NSC<4 le programme créera ur mi- 
nimum de 4 secteurs. 


Booter ProDOS 
et DOS 3.3 


La disquette produite n'est qu'une 
disquette de données. elle ne peut 
booter sous aucun système 

Booter en ProDOS est très simple, 
il suffit de transférer sur la partie 
ProDOS les fichiers  ProDOS, 
BASIC SYSTEM et, s l'on veut. un 
programme STARTUP à l'aide du 
FILER. On peut réaliser cela dès l'ini- 
tialisation de la disquette. puisque la 
transformation conserve les premiers 
blocs du volume. Ceci permet de di- 
minuer le nombre de manipulations 


en ne recourant qu'une fois au 
FILER. 
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Booter en DOS 3.3 est bien sûr 
impossible stricto sensu, mais on 
peut le simuler. Pour cela, il est né- 
cessaire d’avoir un fichier ProDOS 
contenant l'image du DOS 3.3. Si 
cela est aisé à l'écriture, on conçoit 
aisément que cela l’est moins à la re- 
lecture. 11 faut donc le transférer à un 
autre emplacement mémoire; d’où 
les opérations suivantes : 

e Booter une disquette DOS 3.3 

normale, 


e CALL-I51 

e 3000<9D00.BFFFM (déplace le 
DOS) 

e 3D0G (ou CTRL-—C pour revenir 
en Basic) 


e BSAVE DOS 3.3.4$3000,L$2300 
(sur la disquette DOS 3.3) 

e Employer l'utilitaire CONVERT 
pour transférer DOS 3.3 sur la dis- 
quette ProDOS 

© Faire les opérations inverses sous 
ProDOS n’est pas possible directe- 
ment {la machine se plante car on 
n'entre à aucun moment dans le 
DOS 3.3 et la page 3 ($3D0 à 
$3FF) n'est pas en place. I faut 
utiliser le petit utilitaire 
HELLO.OB (à implanter sur la 
partie ProDOS). 

e Sous ProDOS . BLOAD DOS 3.3 

Puis BRUN HELLO. OB et nous 

y sommes ! 


Voyons le programme HELLO.OBJ 


— de $300 à $317: retransfert du 
DOS à sa position initiale en $9D00. 
Ces lignes sont équivalentes à la 
commande moniteur : 
+9D00<3000.5300M 
— en $318 et $31A : on supprime le 


mode TRACE mis discrètement par : 


ProDOS pour ses besoins internes 

— $31C à $325: on implante la 
chaine de caractères HELLO dans le 
tampon contenant les paramètres des 
commandes DOS. 

— $327 et fin: on rentre à froid dans 
le DOS (DOS coldstart), après lui 
avoir fait croire que la dernière 
commande exécutée (en $AATF) par 
lui était INIT ce qui est son'état nor- 
mal lorsqu'il vient d'une disquette 
normalement initialisée. Ayant vérifié 
la chose. le démarrage à froid du 
DOS met en place les vecteurs de la 
page 3 et cherche à exécuter un pro- 
gramme du nom de HELLO (pro- 
gramme situé évidemment sur la par- 
tie DOS 3.3 de la disquette). S'il n'y 
a pas de HELLO. on obtient le clas- 
sique FILE NOT FOUND, mais on 
est quand même en DOS 3.3. 


On pourra trouver un exemple de 
boot DOS 33 dans ie court pro- 
gramme (ProDOS) HELLO joint 


Bibliographie 


Pour la description des formats des 
secteurs (respectivement blocs) des 
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Source Toolkit Programme MLICALL.SCE 
SOURCE FILE: NLICALL.SCE 


0000: 1 LST NOA 

0000: D BESSSIENSIENSENSISESNIIEENSISENSESIIIIFIIIS 
0000: 3 #  Routine d’appel de ML] à partir du BASIC 
0000: OMPETIICICCFFFEIC CCF 
——— NEXT OBJECT FILE NAXÆ JS MLICALL.SCE,0BJ0 

0300: 5 OR6 300 

0300: 6 # 

0080: 7 LIT EQU $80 

0081: B ECRIT EQU $81 

0300: 9 3 

0003: 10 LEN EQU $3 

00€0: 11 UNIT  EQU $E0 {drive 2; pour drive 1:$60) 
2000: 12 BUFFER EQU $2000 

0002: 13 BLOC  EQU $2 

BEBB: 14 BADCALL EQU $BEBB 

BE09: F5 ERROUT EQU $8E07 

BF00: 1é HLI EQU $8F00 

0300: 17 3 

0300:20 00 BF 18 JSR NL! 

0303:80 19 CODE  OFB LIT 

0304:18 03 pa OU  PARLST 

0306:90 Dé 21 BCC OK 

030B:20 BB BE 22 JSR BADCALL 

0308:20 09 BE 23 JSR ERROUT 

030€ :60 24 OK RTS 

030F:00 25 BRK 

0310:03 26 PARLST OFB LEN 

0311:E0 2 DFB UNIT 

0312:00 20 28 DU BUFFER 

0314:02 00 2 OU BLOC 


3 SUCCESSFUL ASSE#SLY: NO ERRORS 





Schéma 
octet n°" 0 1 et les 33 suivants 
jusqu’au n°34 inclus 
0000 0001 f111 1111 
bit: 7654 3210 7654 3210 
bloc: 0123 4567 8948 CDEF 


mm 
TABLE 3 


TABLE 3: 
Contenu d’un groupe de 39 octets. 
description d’un fichier d’un volume 


ler groupe bloc 2) 


rang de l'’octet 
dans le groupe 


0 tybe de stockage, longueur du nom 
1-15 nom de l'élément décrit 
lé tyge du fichier I 
17-18 bloc cié du fichier I inutilisé (8 fois D) 
19-20 nombre de bDiocs utilisés I 
21-23 nanbre d’octets dans le fichier { 
24-27 datr-heure de création ef. OATE ProDOS, POn°S) 
28 n° version ProOUS utilisé lors de 1a création 
29 n° version ProD0S minimal requis pour ce fichier 
30 accès autorisés (lecture, écriture, destruction) 
31 I adresse de Chargement I longueur des groupes (39) 
32 I ou longueur d’enregistrement 1 nbe groupes par bloc(13) 
33-34 date dernière modification I nombre de groupes actifs 
35-36 heure dérnière modification 1 N° bloc UBM (normt 6) 
37-38 bloc clé du répertoire î nombre totai de blocs 


A EE 


< 
“ 


. 
2 


* 
.— 


ot sc 


Directories ou du VTOC (respective- 
ment VBM), on se reportera aux ma- 
nuels Apple ou à leurs compléments 


de Quality Software : 


Source Toolkit 
Programme HELLO 


SOURCE FILE: HELLO.SCE 


NA 


4300 


Manuel du DOS (Apple) 


ProDOS Technical Reference Manual 


(Apple) 


P.Lechner. QS) 


PLechner, QS) 


Beneath Apple DOS (D.Worth et 


0000: 1 LST 

0000: 

0000: 

0000: 

—— NEXT OBJECT FILE NAME 15 HELLO,SCE.0BJD 

0300: S CR6 

0300: CR 

003: 7 A1 EOU 

203€: 8 A2 EQU 

0042: 9 A4 EQU 

00F2: 10 TRACE EQU 

0300: 11 # 

90EA: 12 DOSBOOT EQU 

AASF : 13 CHD EQU 

AATS5: 14 NME EQU 

FE2C: 15 MOVE  EOU 

0300: lé # 

0300:42 60 17 LOX 
y 0302:86 3C 18 STX 
We 0304:86 42 19 TX 
= 0306:CA 20 DEX 

0307:86 3 21 STX 

0309:A9 30 2 LDA 

0308:85 30 23 STA 
% 030D:A9 52 24 LDA 
: 030F:85 3F 25 STA 
4 0311:A9 90 26 LDA 
: 0313:85 43 27 STA 


Programme INITPRO3.3 


2 SÉSBESSSSSSISSSSSSIIIISFEFFFITIRSS3S 


3 # coexistence de D0S3.3 et Pro-D0S 
À HENNYSNNINENINITIIIIFIIIIIIIIIETET 


PEEK 


10 HOME :00 = 2S6:FF = 00 - 1 
20 DEF FN HICX) = INT (X / 00): DEF F 
N LOCX) = X — O0 * INT (X / O0) 

30 DEF FN W(X) = PEEK (X) + O0 + 
CX + 1) 

40 DEF FN PISTE{(X) = BU + 56 + 4 x X 

SO DIM TYS(2):TY$8(0) = "D00S3.3":TY$(1) 
“"ProDOS":TY$(2) = “Pascal” 

60 GOSUB 3000: REM Initialisation 

70 IF TYPE € > 1 THEN PRINT : PRINT 


"€ 


e n’est pas une disquette ProDOS": 


CALL BELL: GOSUB 3120: 
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GOTO 70 


0315:20 2C FE 
0318: 

0318:A2 60 
0314:86 F2 
031C:8D 2F 03 
031F:90 75 AA 
0322:E8 
0323:C9 AD 
0325:D0 F5 
0327:A9 00 
0329:8D 5F AA 
032C:20 EA 9 
032F: 

032F: 

032F:CB CS CC 
0332:CC CF AG 


28 JSR 
29 # 

30 LDX 
31 STX 
32 LOOP  LDA 
3 STA 
34 INX 
35 OP 
36 BNE 
37 LDA 
38 STA 
39 JSR 
dû # 

ai NSB 
42 HEUD ASC 


NOVE 


£0 
TRACE 
HELLO,X 
NANE ,X 


ÉSAD 
LO0P 

£0 

C0 
DOSBOGT 


(N 
HELLO 


#34 SUCCESSFUE ASSEMBLY: NO ERRDRS 


Programme DEBUT 


Beneath Apple ProDOS (D.Worth et 


100 = CHR$ (4): PRINT D$:"BLOAD DOS3. 
3* 

110 ONERR GOTO 200 

120 PRINT D$;°BRUN HELLO.0BJ" 

200 IF PEEK (222) = 6 THEN PRINT CHRS 

(7): PRINT "Pas de programme HELE 

OL" 

210 PRINT : PRINT "Vous etes en DOS 3.3" 

220 NEW 

100 REM -------------- Directory ProD 
OST SEE == —— 

102 RENM 

104 REM ------ Lecture Key-Blo 
ck 

110 POKE CODE,LIT: POKE BLOC,2: CALL MLI 

120 R = BU + 4: GOSUB 900:VOLS = NS + "/* 

130 VUBM = FN W(BU + 39):NB = FN WCBU + 
41):PM = INF C(NB - 1) / 9) 

140 PRINT : PRINT "Vous allez transforme 
r “;VOLS$ 

150 PRINT " en mixte ProDOS-D0S 3.3" 

160 PRINT : PRINT "1 Dre piste DOS 3.3 e 
n nl: 17";: HTAB 27: INPUT R$:Pi = 

VAL CR$SD: IF R$ = "" THEN P1 = 1 

ré 
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UTABS PEEK (37): HTAB 28: PRINT P1 
IF P1 & O OR P1 > 34 THEN CALL BELL 
: PRINT ‘n£E piste hors limite !*: 

GOTO 160 
P2 = 34: IF PM ) P2 THEN P2 = PM 
IF UBM < 6 THEN TR = 1: GOTO 220 
PRINT : PRINT "Tronquer le Directory 
ProD0OS ?N°;: HTAB 31: GET R$: PRI 
NT R$: IF R$ = °0*" THEN TR = 1 
PRINT : PRINT "Nbe Secteurs Director 
7 DOS 3.3: 15";: HTAB 32: INPUT R$ 
INSC = VAL CR$S): IF R$ = °" THEN 
NSC = 15 


UTAB PEEK (37): 

RE41 

REM 
ume-8i t-Map 

POKE BLOC,VBM: CALL MLI 

1F PM < P1 THEN FOR P = 
1: POKE BU + P,FF: NEXT 

FOR P = P1 TO P2: GOSUB 800: NEXT 


HTAB 33: PRINT NSC 


Mise 9 Jour Vo] 


PM TO Pi - 


P = 17: GOSUB 800 

IF TR THEN POKE BU, PEEK (BU) + 6 * 

(UBM = 6) :VBM = 4 
POKE BLOC,UVBM: POKE CODE,ECRIT: CALL 
MLI 
REM 
RENE SES ESS Mise 9 Jour Key 
—-Block 


POKE CODE, LIT: POKE BLOC,2: CALL MLI 
POKE BU + 39,UVBM 


NB = 8 * Pi: POKE BU + 41, FN LOCNB) : 
POKE BU + 42, FN HI(NB) 
POKE CODE,ECRIT: CALL MLI 


:: IF TR THEN POKE BLOC, FN W<BU + 2 


>: POKE CODE,LIT: CALL MLI: POKE B 
U + 2,0: POKE BU + 3,0: POKE CODE, 
ECRIT: CALL MLI 

REM —----—————————- Directory DOS 3 
3 

RE 

REM === Ecriture secte 
urs Directory ) 

FOR I = O0 TO S11: POKE BU + 1,0: NEX 
T 


POKE CODE ,ECRIT 
POKE BU + 257,17: POKE BU + 
POKE BLOC,143: CALL MLI 

IMIN = 1:0C = 0:F = 0 
IF NS € 15 THEN IMIN = 
- 13 / 2):0C = 
FOR 1 = 
C = OC -F:F = 


258,14: 


7 — 
163B2:F = 
6é TO IMIN STEP - 1 
F / 4 


INT ÇC€CNS 
122B8 


… © 


112FIN = CE € = IMIN) AND (NSC < 15) 
:: POKE BU + 1,17: POKE BU + 257,17 *# 
NOT FIN 

:: POKE BU + 2,2 * I: POKE BU + 258,6 
2 # I - 1) * NOT FIN 

:: POKE BLOC,143 - 1: CALL MLI 

NEXT 

REM = Crtation VTOC 

POKE BU + 2,15: POKE BU + 257,17: PO 
KE BU + 25B,13 

POKE BU + 3,3: POKE BU + 6,FF -— 1 

POKE BU + 39,122: POKE BU + 4B,1é6: P 


OKE BU + 49,1 


670 


680 
690 


700 
710 


720 
730 
799 


800 


POKE BU + 52,P2 + 1: 
: POKE BU + 55,1 

FOR I = P1 TO P2 

5: POKE FN PISTECI),FF: POKE FN PIS 
TE1) + 1,FF 

NEXT 

POKE FN PISTE(172, FN HICOC): 
FN PISTEC17) + 1, FN LO<OC) 

POKE 8L0C,136: CALL MLI 

END 


POKE BU + 53,16 


POKE 


Bar de la dernidre chance 
IF ( PEEK (BU + P) = 
GOTO 840 
tt PRINT : PRINT INVERSE : PRINT °A 
TTENTION® ;: NORMAL CALL BELL: 
INT * Vous risquez de d{truire de 
s donn£tes de ° ;VOL$: PRINT 
:: PRINT “Voulez-vous continuer 7N°;: 
HTAB 24: GET R$: PRINT R$ 
::0K = 1: IF R$ <« > "DO" THEN END 
POKE BU + P,0 
RETURN 
REM ---- champ Nom 
L = PEEK CR):ST = 
L —- 16 x ST 
NS = °°: IF ST = 15 THEN NS = "“/*° 
FOR J = 1 TO L:N$S = N$ + CHR$ € PEE 
K CR + J)i: NEXT 
RETURN 


FF) OR OK THEN 


INT (LL / 16): = 


Bip-Bip ProDOS ! 


BELL = 81lé: FOR 1 = O TO 21: 
POKE BELL + I1,X: NEXT 
DATA 162,32,169,2,32,168,252,141, 

48,192,169,36,32,168,252,141,4B,19 
2,202,208,237,96 
REMn=ES TEST === SES 
on Appel MULTI === TrSs Ses 
MLI = 76B:S8UFFER = 8192:UNIT = 224: 
REM Drive 1:96 --- Drive 2:224 
PA = 784:BLOC = PA + 4 
CODE = MLI + 3:LIT = 12B:ECRIT = 129 
FOR 1 = 0 TO 21: READ X: POKE MLI + 
I,X: NEXT 
DATA 32,0,191,128,16,3,144,6,32,139 
5190,32,9,190,96,0,3,224,0,32,2,0 
POKE MLI + 4, FN LO(PA): POKE MLI + 
9, FN HIC(PA) 
POKE PA,3: POKE PA + 1,UNIT: POKE P 
À + 5,0 
POKE PA + 2, FN LOCBUFFER) : 
+ 3, FN HICBUFFER) 
Identification Dis 


READ X: 


POKE PA 


quette 
PRINT "Disquette --) Drive 2. OK?°; 
: GET R$: PRINT * OK® 
POKE BLOC,136: CALL MLI 
DOS = < PEEK (8U + 3) = 3) 
POKE BLOC,2: CALL MLI 
TYPE = ( PEEK (BU + 2) AND NOT PEE 
K (BU + 3) *# NOT PEEK (BU + 4) 
+ 1) 
RETURN 


RE —————————…….….….….…—…—_—.…—_._—…—_…_……_……—…"…._….—….—…….…"—."….….…"."._..._————…" —_—….…_….….…—….….….….….….….….….….….….….…._….…_…__._……____….….….….…. —_.….—….….—. 
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Saisie de variables par écran 


Gérard Michel 


La saisie de données reste souvent 
un sujet de préoccupation pour le 
programmeur, notamment en raison 
des insuffisances de l'instruction 
INPUT du Basic. Pom's vous a d'ail- 
leurs déjà proposé, sous des formes 
plus ou moins complètes et 
complexes, de nombreuses routines 
de saisie-clavier. 


Ces différentes routines, en Applesoft 
ou en assembleur, reposaient généra- 
lement sur un même principe de 
fonctionnement : analyse et contrôle 
des caractères entrés au clavier, puis 
affectation au contenu d’une variable 
à l'issue d’une session de frappe, 
marquée. par exemple, par un RE- 
TURN. 

Elles pouvaient également comporter 
une gestion de la position du curseur 
à l'écran, en fonction des variables à 
saisir, au moyen de HTAB et VTAB, 
ou de traitements équivalents en lan- 
gage machine. 


La solution présentée ici procède 
d'une autre démarche, articulée en 
trois étapes : 

@e Saisie de caractères au clavier, 

avec rejet des éventuels ‘parasi- 

tes”, caractères de contrôle en 
particulier. 

Affichage pur et simple des carac- 

tères valides à l'écran. 

e A l'issue de la saisie, détectée lors 
de la frappe de la touche ESC. 
analyse du contenu de l'écran 
pour y reconstituer les différentes 
données et les affecter aux varia- 
bles. 


Ce mode de saisie peut présenter 
certains avantages, tant pour le pro- 
grammeur (pas de gestion complexe 
d'écran à définir et à réviser en fonc- 
tion des ‘erreurs et omissions"), que 
pour l'utilisateur (saisie, sous réserve 
du respect de certaines règles. en 
nimporte quel endroit libre de 
l'écran, possibilité de se déplacer en 
permanence sur tout l'écran pour y 
modifier des données. sans risque 
pour les variables ). 


Principes 
d'utilisation 


Il vous faudra tout d'abord définir les 
libellés devant apparaître en regard 
des données à fournir. À chaque va- 
riable doit correspondre obligatoire- 
ment un libellé, aussi bref soit-il. mais 
il peut y avoir en revanche plus de 
libellés que de variables (pour un 
titre d'écran, par exemple). 

Ces libellés seront ensuite affichés sur 
un écran vierge par tous moyens à 
votre convenance. tels les simples 
ordres PRINT utilisés dans notre pro- 
gramme d'illustration. 


À ORBSSRIRHIHS 


23 3 Source Big Mac 
3 # SAISIE ECRAN APPLE //E-C # 

: : CBI6 AC) : Programme IPE2.S 
Ê SERRES HIS 

Z 

8 

9 CR6 #9000 

10 OP 6950 >CARACTERE "£" ? 

il BEQ S0 

12 OP £$RA : TRAITEMENT CHRGET STANDARD 

13 BCE Si 

14 RTS 

15 S1 MP $8E 

16 Sû LDA f0 RECHERCHE DES LIBELLES À L'ECRAN 
17 STA $25 

18 S4 JSR $FBCI CALCUL ADRESSE DASE DE LA LIGNE 
19 LOY £0 

20 S3 LDA ($28),Y 

21 OP  ÉSAO "ESPACE" ? 

22 BEQ S2 OUI --} PAS DE CHANGEMENT 

23 O#  £$DF Da 

24 BEQ S2 

25 CNP f$40 CARACTERE DEJA EN INVERSE ? 

26 BCC S2 sOUI —} PAS DE CHANGEMENT 

27 AO 1f$3F STRANSFORNE NORMAL EN INVERSE 
2 STA ($28) ,Y 

2 S2 INY 

30 CPY £$28 FIN DE LIGNE ? 

31 EME 53 

32 INC $25 LIGNE SUIVANTE 

3 LA $25 

34 OP £418 351 L'ECRAN N’EST PAS TERNINE 

3 EME 54 

36 JSR $8]! 0CTET SUIVANT 6 DANS LE PROGRYAME 
37 OP £’S’ 

38 BEA S5 

39 OP £’D’ 

40 BE S5 

41 Sé JSR $F399 

42 JP DEC? 3" SYNTAX ERRDR° 

43 S5 STA $4 SAUVEGARDE OCTET CORNDE 

44 USR $81 3OCTET SUIVANT 

45 JSR $F709 RECHERCHE DU TABLEAU DE VARIABLES 
dé LDA 498 

4 STA $7 5 SAUVEGARDE D€ SON ADRESSE 

48 LA $9 

49 STA 48 

st LDY f0 

St LDA (87),Y 51ERE LETTRE OU NOM DU TABLEAU 
52 BA Sd s50DIT ETRE EN ASCII POSITIF 

33 INY 

54 LDA ($7),Y 32BN{E LETTRE 

55 BPL Sé s#D0IT ETRE EN ASCII NEGATIF 

sé LDY £4 

57 UA ($7),Y 

58 OP fi :TABLEAU À 1 SEULE DIMENSI®: 

59 EME Sd 5SINON --) ERREUR 

6 INY 
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Concernant chaque variable, il fau- 
dra en outre en préciser : 


e ja longueur {si cette dernière n'est 
pas pertinente pour vos traite- 
ments, fixez-la à 255 caractères), 

e le type: O pour des données al- 
phanumériques, 1 pour des don- 
nées numériques. 


Les longueurs seront stockées dans 
un tableau d’entiers à une seule di- 
mension (baptisons-le TL%), et les 
types dans un autre tableau de 
même nature (soit TF%, par exem- 
ple). Quant aux données elles- 
mêmes, elles seront affectées dans 
un tableau de chaînes de caractères 
(TV$, par exemple). 

Ces trois tableaux doivent avoir un 
nombre d'éléments identique et il est 
préférable de les dimensionner en 
conséquence avant toute opération 
de saisie. 


Une fois les différents tableaux défi- 
nis. les longueurs et types chargés 
(par l'intermédiaire de DATAs ou par 
tout autre moyen) et les libellés affi- 
chés, vous disposez de deux instruc- 
bons pour réaliser la saisie . 


e :JSTVSTLATTH 
e :DTVÉTLA.TTX 


L'instruction :JS... permet une saisie 
pure et simpk : le tableau de varia- 
bles est considéré comme ‘vide’ et il 
faut entrer autant de données qu'il y 
a d'indices dans ce tableau 


L'instruction :JD.. en revanche. affi- 
che d'abord le contenu du tableau 
avant de passer à la phase de saisie. 
Seuls les éléments à modifier nécessi- 
tent alors une nouvelle frappe. Cette 
instruction peut d’ailleurs servir dans 
un but de consultation des données. 
sans altération de leurs valeurs. 


Le caractère ”’]"” constitue l'identifica- 
teur de nos ordres de saisie; il est 
obligatoire et doit toujours être pré- 
cédé de ”:”. même s'il vient en tout 
début de ligne ou après un THEN 


Fonctionnement 
de la saisie 


Dès qu'elle rencontre un caractère 
*]”, la routine commence par explo- 
rer l'écran pour y trouver les libellés 
et les transformer de NORMAL en 
INWERSE. Les données étant ensuite 
affichées en NORMAL. cette diffé- 
rence de mode vidéo permettra de 
les distinguer des libellés. 

Il est préférable de ne pas mettre 
d'espaces à l'intérieur des libellés et 
de les remplacer. par exemple. par 
des points 

Si vous le souhaitez. vous pouvez in- 
diquer à l'écran la longueur maxi- 
male autorisée pour une donnée en 
affichant, à la suite du libellé corres- 
pondant. un nombre égal de caractè- 
res ‘souligné {code clavier #$DF) 
Ces caractères seront traités comme 
des espaces par la routine et reste- 
ront en mode NORMAL. 
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CES EEE ETELELSL 


8% 


Sé 


(598),Y 


(898) ,Y 
$1A 
Ki 


(598),Y 
#19 
KI 


398 


SAUVEGARDE NONBRE D’ ELEMENTS 


:DANS LA DIMENSION 


18748 POINTE SUR LE 1ER 
JELBENT DU TABLEAU 
JTESTE *,* AMNT LE 


:DEUXIEME TABLEAU 
1SINON —) ERREUR 


{TRAITEÆNT DES TABLEAUX 
DE “LONGUEURS" ET "TYPES" 


TABLEAU ENTIER --} LES DEUX 
{LETTRES DOIVENT ETRE EN ASCII MEGATIF 


3SINON —-} ERREUR 


:TABLEAU À 1 DINENSION SE ENT 


LE NOYRE D'ELBŒNTS D0IT ETRE 
LE NE QUE POUR LE TABLEAU 
1DE VARIABLES À SAISIR 


:$EB-4EC PDINTERA SUR LE PDIDS FAIBLE 
DE LA VALEUR OU PREMIER ELBÆNT 
;OU TABLEAU DES LONGUEURS 


:TESTE *,° AMANT LE TABLEAU DES "TYPES" 


MEME TRAITEMENT QUE POUR LES LONGUEURS 


;$ED-4EE POINTERA SUR LE PDIDS FAIBLE 
DE LA PRENIERE VALEUR 


DU TABLEAU DES TYPES 


13 


14 


Après inversion des libellés, la main 
est donnée à l'utilisateur pour la sai- 
sie proprement dite. Le curseur est 
initialement placé en haut à gauche 
de l'écran; il est possible de le dépla- 
cer en tout point avec les quatre flè- 
ches de direction. 

Au niveau des caractères entrés, la 
routine procède aux contrôles sui- 
vants : 

— Pas d'affichage autorisé sur les li- 
bellés : seules les parties d'écran en 
NORMAL (vierges ou non) sont ad- 
mises pour la saisie / affichage. 

— Pas de caractères de contrôle, ni 
de ”:”, ”;” où guillemets, les virgules 
étant pour leur part remplacées par 
des points (problème des caractères 
séparateurs et des guillemets avec les 
ordres PRINT). 


Chaque donnée doit se terminer par 
un RETURN. La frappe de cette tou- 
che se traduit à l'écran par l'affichage 
d’une barre oblique {dans le sens in- 
verse de ‘/” - code clavier #$DC). 
En clavier QWERTY, vous pourriez 
utiliser la touche correspondant à 
cette barre oblique directement, en 
lieu et place de RETURN. 

Î s’agit là d'un simple séparateur de 
données : il s'affiche mais ne provo- 
que aucun autre déplacement du 
curseur que celui occasionné par les 
autres touches. 


Il n'est nullement indispensable de 
saisir les valeurs exactement en re- 
gard des libellés qui leur sont liés, 
sauf si vous avez besoin de vous pla- 
cer sur les éventuels ‘”soulignés” 
pour être sûr de ne pas dépasser les 
longueurs prévues. 

Ainsi, si vous disposez ‘quelque 
part” d'un nombre suffisant de posi- 
tions libres contigües à l'écran, vous 
pouvez saisir toutes les données re- 
quises en continu (à la suite les unes 
des autres), à condition de terminer 
chacune d'elles par un RETURN et 
de bien taper autant de RETURN 
que de données attendues (nombre 
d'éléments dans le tableau des varia- 
bles). À noter que, comme à l’habi- 
tude, une donnée “vide” se traduit 
par la frappe d’un simple RETURN. 
Par exemple : 


D1 puis RETURN et RETURN 


donnera ‘’D1” comme valeur pour le 
premier élément du tableau et ”” 
pour le second (chaîne vide). 


En résumé, dès lors que vous respec- 
tez l'ordre des données (entrée dans 
l'ordre des indices croissants du ta- 
bleau) et que vous terminez chacune 
par un RETURN, vous pouvez les 
Saisir en n'importe-quel endroit auto- 
tisé de l'écran, individuellement, en 
un seul bloc, où en sous-ensembles 
continus. 


La frappe de la touche ESC marque 
la fin de la phase de saisie et déclen- 
che lanalyse de l'écran par la rou- 
tine, qui comporte les contrôles sui- 
vants . 


3REPRISE DU TRAITEMENT DES COMANDES 


04 COMENCE EN HAUT DE L'ECRAN 
SAUVEGARDE DE L'OCTET SOUS LE CURSEUR 
3SAISIE AU CLAVIER 

3Y=POSITION HORIZENTALE 

3X=POSITION VERTICALE 

3FLECHE VERS LE HAUT ? 


VERIFIER SI L’ON PEUT *REXONTER" 


; VTAB 
ÿFLECHE VERS LE BAS ? 


VERIFIER SI ON PEUT °DESCEMDRE" 


ÿFLECHE VERS LA DROITE ? 


ÿPEUT-ON ALLER À DROITE ? 


{FLECHE VERS LA GAUCHE ? 


PEUT-ON ALLER À GAUCHE ? 


A ETS 
y 
OUI --) SORTIE POUR ANALYSE DE L'ECRAN 


;PAS D’ECRITURE SUR LES LIBELLES EN IMWERSE 


351 "RETURN° --} AFFICHER "5" (£$00) 
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— Vérification de la longueur des 
données par rapport aux longueurs 
maximales déclarées dans le tableau 
adéquat, si une donnée ‘déborde’, 
un crochet en FLASH est affiché à sa 
suite (il écrase le RETURN} et la rou- 
tine reprend une phase de saisie 
pour correction. 

A noter que tous les espaces compris 
entre les caractères d’une même 
donnée comptent dans sa longueur, 
alors que ceux qui se trouvent à l’ex- 
térieur (entre un RETURN et le pre- 
mier octet de la valeur suivante, par 
exemple), sont ignorés. 


— Pour les données de type numéri- 
que, les caractères autorisés sont . les 
chiffres, ”.”, ”-” "+" et "/”. Aucun 
espace, ni ”’souligné”, nest autorisé 
à l'intérieur d'une valeur numérique. 
Si on trouve un caractère non 
conforme, il est écrasé par une ‘’«” 
en FLASH et la saisie reprend 


— Jamais de données comptant plus 
de 255 caractères: dans le cas 
contraire, un ”J” en FLASH est affi- 
ché à la fin de la donnée trop longue 
et la saisie reprend dans les mêmes 
conditions que ci-dessus. 


— Exactement autant de RETURNs 
que de variables attendues. ni plus. 
ni moins. Sinon, reprise de la saisie, 
accompagnée d'un beep. 


Si tous ces contrôles sont satisfaits, la 
routine procède directement à l’affec- 
tation des chaînes de caractères au 
tableau de variables défini en entrée, 
à partir de l'élément d'indice 0. Les 
données sont alors utilisables par 
toutes instructions Basic ou DOS. 


Particularités du 
pré-affichage 


Lors d’une instruction :]JD T$. , la 
routine affiche le contenu des varia- 
bles de T$ avant de passer à la sai- 
sie. Pour ce faire, elle cherche à loca- 
liser des libellés en partant de la fin 
de l'écran (en bas à droite} et s’ar- 
rête dès qu'elle atteint le début de 
l'écran ou qu'elle trouve autant de li- 
bellés que de données à afficher. 

De ce fait, il convient de placer les 
autres textes éventuels en haut 
d'écran et de n'afficher ensuite que 
des libellés ‘’utiles” 

Les données sont restituées dans 
l'ordre croissant des indices, en re- 
gard et à la suite des libellés corres- 
pondants. Le RETURN final est auto- 
matiquement ajouté à la fin des 
caractères 

Si vous n'avez pas mis assez de 
textes à l'écran, vous obtiendrez une 
SYNTAX ERROR lorsque la routine 
tentera d'afficher les valeurs. 


La saisie est identique pour:}S 
et:]D. Pour cette dernière, toutefois. 
il peut être bon d'entrer les nouvelles 
valeurs ”sur’ les anciennes, en les 
écrasant, plutôt que de les mettre 
dans une partie vierge de l'écran. et 
ce afin de ne pas laisser à l'affichage 
plus de données qu'il n’en faut 
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STA 
XP 
OP 


(828) ,Y 


AFFICHE LE CARACTERE SAIS] 


PAS DE CARACTERES DE CONTROLE 


;PAS DE * 
sPAS DE : 


PAS DE ; 


SREIPLACE LES VIRGULES PAR DES POINTS 
ANALYSE DE L'ECRAN 


3RECOPIE DE TOUS LES PARAM£TRES 
;DANS DES 20NES DE TRAAIL 


MENORISE LE TYPE DE LA PREMIERE DONNEE 


NONBRE DE OONWES TROUVEES SUR L'ECRAN 
3CONTROLERA L'USAGE DES ESPACES 


:CONTROLERA L'USAGE DES _* 


LES CARACTERES INVERSE NE SINT PAS DES OQNEES 
J'RETURI® À L'ECRAN ? 


5255 CARACTERES DEJA LUS POUR LNE MEME DOMEE ? 
"ESPACE" 7 


PAT ? 


TPE ALPHAMMERIQUE —> OK 


ACCEPTE LE + 


15 


16 


Par ailleurs, si vous souhaitez inciter 
à une saisie initiale en regard des li- 
bellés et non en continu. vous pou- 
vez initialiser votre tableau de varia- 
bles en ne lui affectant que des 
chaînes vides et utiliser une instruc- 
tion :]D plutôt que:]S. Le pré-affi- 
chage de tous les RETURNSs juste 
après les libellés correspondants 
constituera une contrainte de posi- 
tionnement pour l'utilisateur. 


Mode d'emploi 


Il convient de placer les instructions 
suivantes en tête de votre pro- 
gramme Basic d'exploitation : 


e BLOAD IPE2 : chargement de la 
routine de saisie en $9000. 

e BLOAD INTER: mise en place 
dans CHRGET ($B1) d’un aiguil- 
lage sur notre routine IPE2. afin 
de détecter les ”]” d'identification 
éventuels dans le programme Ap- 
plesoft Ce second BLOAD ne 
doit jamais venir avant celui de 
IPE2, sous peine de résultats im- 
prévisibles. 


Pour revenir au Basic standard, il 
suffit de charger par un BLOAD le 
petit fichier baptisé CHRGET. 


Telle qu'elle vous est présentée ici, 
cette routine de saisie d'écran est 
susceptible de nombreux perfection- 
nements. On peut songer, par exem- 
ple, à un alignement automatique sur 
le libellé suivant lors de la frappe 
d'un RETURN, ou à une adaptation 
pour carte 80 colonnes, à f'emploi de 
touches de fonction pour détruire ou 
insérer des caractères. Si le sujet 
vous intéresse, à vous de jouer 


INTER 
*BA. BD 


00BA- 4C 00 90 


CHRGET 
*BA.BE 


O0OBA- C9 34 BO 0 


IPE2 


#*9000.93DS 


9000- C9 50 FO 08 C9 34 90 01 
9008- 60 4C 8E 00 A9 00 85 25 
90:0- 20 Ci F8 AO 00 8t 28 C9 
9018- AO FO 0C C9 DF FO 08 C9 
9020- 40 90 04 29 3F 91 28 C8 
9028- CO 28 D0 E9 Eé 25 AS 25 
9030- C9 18 DO DC 20 B1 00 C9 
90389- S3 F0 0A C9 44 F0 046 20 
9040- 99 F3 AC C9 DE 83 06 20 
9048- 81 00 20 09 F7 AS 98 85 


247 E0II 
248 
249 
250 
251 E010 


28] 

282 El] 
283 

284 ES 


GASESARARESAERSEZ 


u 
— 
2 


ÉÉESEETESTELEEESEEI LILI ESEEE 


£s4A 
(828) ,Y 
$FBDD 


(8F9),Y 
E60 
E60 
s1F 
E50 


ÿRIEN EN DESSOUS OÙ °-* 
*ERREUR DE TYPE —) AFFICHE UNE # EN FLASH 


BEEP ! 
REPRENO LA SAISIE AU DEBUT 


JAU DESSUS DE “:" --) ERREUR DE TYPE 


;ON NE PREND PAS LES "ESPACES" HORS DES DONNEES 


ÿPAS D'ESPACE À L'INTERIEUR DES NONBRES 


30N NE PREND PAS LES *_” HORS DES DONNEES 


PAS DE *_* DNS LES NONBRES 


{STOCKE LE CARACTERE DNS LE BUFFER DE DONNEES 


PASSAGE AU CARACTERE SUIVANT SUR L'ECRAN 


L'ANALYSE DE L'ECRAN EST TERMINEE... 


1$18-$1C DOIT TOUJOURS ETRE INFERIEUR 
A $19-S1A PUISQUE L’ON COTE LES 
DOWEES À L'ECRAN À PARTIR DE 0 


ÿPEUS DE DONNEES QUE DE VARIABLES —-} ERREUR 


3DONEE TROP EONGUE --) AFFICHE {N $ EN FLASH 


ET REPREND LA SAISIE 
{SAUVEGARDE LA VALEUR DE Y 


ÿCONTROLE "LONGUEUR" LUE PAR RAPPORT 
;A "LONGUEUR HAXI° POUR LA DOWNEE 


SIGNALE LE DEPASSENENT ET REPRENO 1A SAISIE 


PASSE À IA LONGUEUR DE LA DONNEE SUJUNTE 


PASSE AU TYPE DE LA DOWIEE SUIVANTE 
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9050- 07 AS 
9058- 07 30 
9060- AO 04 
9068- C8 81 
9070- 95 19 
9078- 07 90 
9080- 88 C9 
90988- 4C 88 
9090- F7 AG 
9098- 68 ac 
90A0- Fé A0 
90A8- EE CB 
9080- C8 @1 
9088- AS 98 
90C0- 9C 69 
$0C8- 98 C9 
$000- 20 88 
9008- 85 ED 
90E0- AS 06 
S0E8- 92 A9 
$0F0- 20 C1 
90F8- OC FD 
9100- DO 0C 
9108- 20 22 
9110- D0 08 
91198- D0 EE 
9120- D0 0A 
9128- 84 24 
9130- F3 90 
9139- DO 0A 
9140- 84 24 
9t489- F3 90 
9150- 09 C9 
9139- 90 68 
9160- 91 26 
9168- 03 4C 
9170- C9 8A 
9178- C9 AC 
9180- AS 07 
9199- AS EB 
9190- AS ED 
9199- A0 00 
9140- 85 18 
SiAB- A9 DF 
9180- 25 20 
91989- C9 40 
91C0- E0 FF 
91C9- C9 DF 
9100- AS FF 
9108- FO 12 
91E0- 91 28 
91E8- C9 8A 
91F0- CS 18 
91F8- A9 A0 
9200- AS FF 
9208- 02 EB 
9210- 25 AS 
9219- 63 92 
9220- AS 18 
9228- FB 4C 
9230- 49 50 
9238- E9 90 
9240- F9 90 
9248- E7 48 
9250- F9 90 
9258- 6? 02 
9260- 81 FB 
9268- 10 F0 
9270- 85 6F 
9278- 6F 91 
9280- A2 00 
9299- 7F 91 
9290- C8 D0 
9298- 1C A4 
92A0- 18 A9 
92A8- 69 03 
9290- 4C 0A 
9289- 03 4C 
92C0- DO F7? 
S2C8- 18 85 
9200- 25 20 
9208- C9 A0 
92E0- Aé Dé 
92€8- A6 06 
92F0- DO 02 
92F8- DO 06 
9300- 98 10 
9308- C8 A9 
9310- 08 C8 


Pom's n° 18 


342 E10 


349 

350 

351 

352 

333 

354 E100 
35 C0 


E62 
#FC 
(8FB),Y 
SFF 


$6 


(#10),Y 
E7 


$6F 
(#1D),Y 


$6F 
(#1D),Y 


$70 


(#10),Y 
£0 


(S6F) ,Y 


$6 
E7 


3STOCKE LE TYPE 


SAUVEGARDE LONGUEUR REELLE 


;LA STOCKE DANS LA 20€ DES TABLEAUX 
3LONGUEUR = 0 --) PAS DE °CHAINE® À STOCKER 


MISE À JOUR DU POINTEUR DE FIN DE LA ZONE 
DE STOCKAGE DES CHAINES DE CARACTERES 


3STOCKE L'ADRESSE DE LA CHAINE AU NIVEAU DE 
L'INDICE CONCERNE DANS LA ZONE DES TABLEAUX 


TRANSFERT CE LA CHAINE DANS LA 20NE DE 
3STOCKAGE APRES REMISE EN ASCII POSITIF 


MISE À JOUR DU NOMBRE DE DONNEES LUES 


REMISE À LA VALEUR INITIALE DES RARANETRES 


ADRESSE DE L'ELEMENT SUIVANT DL TABLEAU 
35’1L EN RESTE À SAISIR 


PASSAGE AU CARACTERE SUIVANT SUR L'ECRAN 


sA CE NIVEAU, LE CONPTEUR DE VALEURS LUES 


3EST NAJORE 0E 1 ET DDIT DONC ETRE EGAL 
;AU NOMBRE DE DONNEES ATTENDUES 


REND LA MAIN AU BASIC 
REPRISE POUR AFFICHAGE ET SAISIE D'UN TABLE 


RECHERCHE DES LIBELLES À PARTIR 
OU BAS DE L'ECRAN 
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9318- Eé 25 84 24 À9 00 85 18 
9320- 85 1C AS 07 835 1D AS 08 
9328- 85 1E A0 00 À2 00 81 10 
9330- 85 06 FO 18 C6 B1 JD 85 
9338- CE C8 81 10 85 CF AO 00 
9340- Bi CE 09 80 90 00 02 E8 
9348- Ed 06 FG 03 C8 00 Fi A9 
9350- DC 90 00 02 Eé 06 A2 00 
9358- AS 25 20 Ci F8 Ad 24 81 
9360- 28 C9 40 90 1E BD 00 02 
9368- 91 28 E8 E4 04 F0 2A C8 
9370- C0 28 00 Fi Eé 25 AS 25 
9378- C9 18 FO 14 20 C1 FB AO 
9380- 00 FO E2 C8 CO 28 00 0? 
9388- Eé 25 AS 25 C9 18 D0 03 
9390- 4C 3F 90 AO 00 84 24 F0 
9398- Ci Eé 18 00 02 Eé 1C AS 
9340- iC CS iA DO 09 AS 18 CS 
93A48- 19 DO 03 4C ES 90 C8 CO 
9380- 28 D0 0D Eé 25 AS 25 C9 
9388- 189 FO DS 20 Ci FB AO 00 
93C0- 81 28 C9 40 8980 E8 84 24 
93C8- ÀS 10 69 03 85 10 90 02 
9300- Eé 1E 4C 2A 93 





Trucs et Astuces 
Un bug du Filer de ProDOS 1.0 


Si l’on formate {Volume Commands, 
Option F} une disquette dont le nom 
comporte des minuscules. la 
disquette ne sera pas formatée 
correctement, 

— Un CAT ne fonctionne pas : 

— Certaines commandes du Filer, 
par exemple Dljetect bad blocks, 
Bjlock allocation,  Rjename a 
volume... entraînent un “VOLUME 
NOT FOUND"” tandis que Liist 
volumes indique l'existence de ce 
volume. 


Conclusion: puisque le Filer ne 
met pas automatiquement le nom de 
la disquette en majuscules, faites-le 
vous-même | 


371 SD4 


401 SD3 


413 
414 SD21 
415 
4ié 
417 


(#1D),Y 
#6 
s080 


(810) ,Y 
$CE 


(810), 


LAISSE LES ESPACES ET LES "_° 


{DRAPEAU POUR SWOIR SI L’ON EST DANS UN MEME 
LIBELLE OU SI L’ON EN CO#ÆNCE UN NOUVEAU 


OUAND ON RETROUVE (P4 ESPACE OÙ UN °_° APRES 
FANALYSE D'UN LIBELLE EN INVERSE, IL Y AURA 
UÆ DOWVEE A METTRE EN REGARD DE CE LIBELLE 


:@N DOIT LOCALISER AUTANT DE LIBELLES QUE 
1DE DONNEES À AFFICHER 


POURSUITE DE L'ANALYSE DE L'ECRAN 


;DEPART DE L'AFFICHAGE DES DONNEES 


$RECUPERE LA LONGUEUR DE LA CHAINE 


LONGUEUR = 0 --} PAS DE CHAINE À AFFICHER 


{RECUPERE L'ADRESSE DE LA CHAINE 


TRANSFERT DE LA CHAINE DANS LE BUFFER 
APRES REMISE EN ASCII NEGATIF 
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438 
439 SD1S 
440 
441 5013 
442 
443 
444 5012 
445 


458 


460 


466 SDIé 
467 SD14 


470 Si] 


473 SD17 


480 SD18 
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AÉRELEEEELEEEELELEELEL ELLE EELLILI ELÉEÉ 


$200,X 


JPLACE UN ‘PSEUDO RETURN" EN FIN DE DONEE 


;PROTEGE LES DONNEES EN ItWERSE 
FRECOPIE LA CHAINE SUR L'ECRAN 


CHINE TERMINEE ? 


PASSAGE À POSITION SUIVANTE SUR L'ECRAN 


JON NE OEVRAIT JAMAIS TOUCHER LA FIN DE L'ECRAN 


SUITE DE L'AFFICHAGE 
3SAUTE LES "INVERSE” ANT DE COMENCER 
1A AFFICHER LA CHAINE 


3FIN DE L'ECRAN SANS FIN D’AFFICHAGE --} ERREUR 


MISE À JOUR DU NOMBRE DE CHAINES AFFICHEES 


TOUTES LES CHAINES NE SONT PAS ENCORE AFFICHEES 


;1DB4 
3SINON --) REPREND UNE SAISIE 
30N VEUT PASSER À LA POSITION SUIVANTE À L'ECRAN 


JAMAIS LE BAS DE L'ECRAN NE O0]T ETRE ATTEINT 


31L FAUT RELOCALISER LE LISELLE SUIVANT 


PASSE À L’INDICE SUJUANT DANS LE TABLEAU 
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45 STA #10 


496 gcc 5020 
497 INC SE 
498 5020 JP SD21 
TEST.IPE2 


1 HIMEM: 9 # 4096 -— 1 

5 DS = 
RINT 0$"BLOAD INTER 

10 TEXT : HE 

15 POS = * 


20 DIM D1#(9),L1Z(9),TIZC9)D: FOR I = 0T 60 
O 9: READ LIZX(I),TIXC1): NEXT 
10,0,5,1,20,0,2,1,2,1,5,0,10,0, 


22 DATA 
4,1,6,1,30,0 


25 DIM D2$(5) ,LZ2(5),T2%(5): 
0 5: READ LZACI),TZ4(1): NEXT : DA 


27 GOTO 100 


CHR$ (4): PRINT D$"BLOAD IPE2°: P 


REPRISE DE LA PROCEDURE D'AFFICHAGE 


| *DON.1.:° 


: PRINT 3 PRINT "DON.2.:"° 


SPC 15)"DON.3.:" 
45 FOR I = 4 TO 9: PRINT : HTAB 10: PRIN 


NEXT 


T “OON.°1".:" LEFT$S (POS,L12C1)): 
RETURN 


50 HOME :2$ = *ECRAN 2°: HTAB 20 - LEN 
C2$) / 2: PRINT 2%: FOR I = 0 TO 5 


: PRINT 


3: PRINT “DONMEE."1°.:" LEF 


T$ (POS,L2%C122: NEXT : RETURN 


FOR 1 


12): 


FOR 1 = OT 100 


HOME : PRINT °ECRAN 2 

= 0 TO 5: PRINT : HTAB 10: P 

RINT °DONNEE."1".:° LEFT$ (POS$,L2% 

NEXT : RETURN 

GOSUB 30:8SD1$,LI1%,TI1X: GOSUB 30 :SDD 
1$,LI2‘,717%: GOSUB 40:8DD1$,LIZ,TIZ 


MODIFIE" : 


TA 10,0,6,1,6,1,20,0,1,1,6,0 : GOSUB 50:$SD2$ ,L2%,T2/: GOSUB 60 
:SDD2$,L2/,T24 
HTAB 20 - L | 110 HOME : FOR 1 = O TO 9: PRINT D1$(1): 


30 HOME :2$ = °"ECRAN NO 1° 
EN (2$) / 2: PRINT 2%: 
PRINT °DONNEE 


33 FOR I = O0 TO 9: PRINT 


PRINT 


NEXT 
INT D2$C1): NEXT : GET 2$ 


PRINT : FOR I = O0 TO 5: PR 


."1".C"TIZCI)°).:° LEFTS$S (POS,LIZ€ 120 FOR I = O TG 9:D1$C1) = °°: NEXT : F 


122: NEXT 
35 RETURN 


40 HOME :2$% = "ECRAN 1 MODIFIE": HTAB 20 
— LEN (2%) / 2: PRINT 2%: PRINT 
3 PRINT : PRINT °DON.0.:° SPCC 15) 


OR I 


Q TO S:D2$C1) = “": NEXT 


130 GOSUB 30:8DD1$,L1%,T1:4: GOSUB 50 :SDD 


28,L24,TZ/: HOME : FOR I = O0 TO 9: 
PRINT D1#(1): NEXT : PRINT : FOR 
I = O TO 5: PRINT D2$(1): NEXT 





Le porte-parole 


Ediciel (Matra & Hachette} nous pro- 
pose un synthétiseur de parole qui 
parle françàrs, sous fonne d'une carte 
(à brancher dans un slot, le 4 de pré- 
férence) et d’une disquette. 


La carte 


Elle comporte : 


— Un chip synthétiseur de parole 
MEA 8000 pennettant la synthèse de 
parole et la génération de sons musi- 
caux. 

— Un amplificateur basse fréquence 
pour amplifier le signal vers un haut- 
parleur. 

— Des emplacements libres pour re- 
cevoir des RAMs ou des PROMs, et 
les décodeurs pour y accéder. 

— Une sortie vers le haut-parleur de 
l'Apple, que l'on doit alors débran- 
cher de la carte mère (ce n'est pas 
très commode sur un []+ !]. 
Inconvénients : le haut-parleur est 
déconnecté pour les usages classi- 
ques, mais fait du bruit à cause de 
parasites électriques quand les drives 
tournent ! On aurait aimé une possi- 
bilité de ‘switcher’ sans avoir à ouvrir 
le capot et rebrancher les fils. 

— Une sortie vers un haut-parleur 
externe, de type prise de chaîne Hi- 
Fi, que l’on peut relier à un amplifi- 
cateur. J'aurais préféré une petite 


prise ‘jack’ pour relier à un magnéto- 
phone, mais c'est personnel (mon 
Apple est à 2 mètres de ma chaîne, 
à vol d'oiseau). 


Le logiciel de synthèse 
de texte 


Première face de la disquette 


Malgré de nombreux défauts ergono- 
miques (par exemple, pas d'éditeur 
de lignes des phrases entrées), ce 
programme est un magnifique bébé 
né de l'union du hardware et du 
software. 

Il pennet de créer des fichiers de 
messages parlés, que l'on peut inté- 
grer à des programmes Basic ou as- 
sembleur, voire au célèbre EDI- 
LOGO 


Les deux grandes possibilités sont . 


— L'édition en français: on rentre 
une phrase (avec des codes spéciaux 
pour les accents...) le programme la 
traduit en phonèmes et peut la pro- 
noncer. 

Et cela marche ! En français intelligi- 
ble et agréable. On peut même met- 
tre un point d'interrogation. et l'into- 
nation changera. De plus, on peut 
indiquer les groupes verbaux et no- 
minaux avec des marqueurs spé- 


Olivier Herz 


ciaux, de façon à se rapprocher 
d'une élocution naturelle. 


Toutefois, ce programme n'a pas la 
science infuse et commet des erreurs. 
Que pensez-vous des phrases ”Les 
poules du couvent couvent” et 
"Nous portions nos portions” ? 

— C'est pourquoi on peut aussi édi- 
ter en phonétique, en indiquant les 
phonèmes. Pour des raisons scientifi- 
ques, la solution employée ici pour 
reconstituer la parole est celle rete- 
nue par le CNET, qui part des cou- 
ples de phonèmes successifs. 


C'est tellement bon que je l’ai fait 
parler en anglais, en allemand et … 
en japonais. Son accent français est 
tout simplement délicieux (‘Maille 
teillor iz ntch”}. 


Mise au point graphique 


Deuxième face de la disquette 


Ce programme permet de créer des 
notes de musiques et des effets spé- 
ciaux sonores en faisant varier l'am- 
plitude du signal, la fréquence et la 
largeur des bandes et en visualisant 
le tout. Il peut créer ses propres fi- 
chiers de bruits ou bien modifier des 
messages créés par le synthétiseur de 
parole. 

B 
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CX MacBase 


Rd RO UE eme SNS és - #7. -+ RE 


Le Logiciel Professionnel 
intégré sur Macintosh 





Puissant et simple 


comme... Macintosh 


CX MacBase est un 
logiciel intégré 

d’un genre tout à fait 
nouveau. Vous passez 
d'une application à 
une autre, d’un 
document à un autre 
avec une surprenante 
facilité ; par exemple, 
pour réaliser 
automatiquement un 
graphique à partir d’un 
fichier, éditer du 
courrier personnalisé, 
créer des relations ou des échanges 
entre fichiers. 


CX MacBase regroupe graphiques, 
gestion de fichiers, calculs, 
traitement de textes, édition 
automatisée de lettres, d'états et 
d'étiquettes. 


Tout celà, en un seul programme 
puissant et simple comme... 
Macintosh. 

Branchez CX MacBase le matin, il 
vous accompagnera 

jusqu'au soir | 





Apple Computer Inc est hoencé de la marque Macintosh 
Cx MacBase est une marque déposée de Contrôle X 
Ensemble est une marque déposée de Contrôle X 





I change tout 
sans tout bouleverser 


Chaque jour, vous créez, échangez, 
transmettez des documents. Chaque 
jour, CX MacBase travaille 
directement sur les documents 
professionnels qu'il vous a permis 
de créer et d'illustrer : imprimés, 
formulaires, rapports d'activités, 
devis, mémos, etc. Et vous 
retrouvezsur Macintosh votre cadre 
naturel de travail. Vous savez tout 
de suite calculer, classer, retrouver, 
sélectionner, trier, imprimer, 

mixer à volonté. 


ss Controle X 


Les logiciels à tout imaginer 


Tour Maine - Montparnasse - 33, avenue du Maine, 


75755 Paris Cedex 15 - Tél. : (1) 538.98.87 


Donnez du tonus 
a vos documents 


Communiquez avec 
votre entourage et 
valorisez vos perfor- 
mances profession- 
nelles en envoyant 
de superbes états 
récapitulatifs 
extraits de vos 
fichiers ; toutes 





sortes de docu- à 

. . D — 
ments où cohabi- En 
tent votre logo, des dessins, Ée 


tableaux, graphiques, textes, 
encadrés, etc. CX MacBase est à 
l'aise dans tous les milieux profes- 
sionnels et vous permet de 
développer vos propres applications. 


CX MacBase répond vraiment à 
toutes les promesses de Macintosh ! 
Renseignez-vous vite auprès d’un 
revendeur agréé ou adressez-nous 
votre carte de visite pour recevoir 
une documentation. 









VERSION SOFT, LES FRUITS 
L'édition française 


L'OUTIL INDISPENSABLE DU DÉVELOPPEUR. 





Premier assembleur éditeur pleine page, 
pour APPLE {le et APPLE Jic. 





Si vous avez la programmation dans 

la peau, initiés ou débutants, Procode est 
le logiciel qu’il vous faut. 

Il vous permet de développer en un temps 
record grâce à ses fonctions d’éditeur 
pleine page 80 colonnes. 

Etudié pour ProDOS 64 k ou 128 k, 
Procode peut assembler sans accès 

disque jusqu’à 3 sources en mémoire. 
Normal, on travaille entre Pros! 


BUDGET FAMILIAL 





LE PLAISIR DE LA GESTION. 


Gestionnaire de talent pour le plaisir 
de rentrer dans ses comptes. 





Budget Familial vous 

en donne pour votre 

argent! : 

Il vous permet d’enre- je. * 
gistrer tous les mouve- % 
ments de votre compte CZ 
bancaireetd’avoirl'œæilsurvos 
votre compte. 

Même en ignorant tout de la 

gestion, vous pouvez très vite devenir 


dépenses. 

Avec lui, plus de problèmes de 
un super gestionnaire. 

Avec le plaisir en plus. 





gestion, vous étessür d’ytrouver 


LES LOGICIELS VERSION SOFT UTILISENT LE SYSTÈME D'EXPLOITATION PRODOS 
LES MENUS DÉROULANTS PERMETTENT D'ACCÉDER DIRECTEMENT AUX DIFFÉRENTES FONCTIONS. 
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D’UNE PASSION 


de logiciels 


EPISTOLE 


L'ÉCRITURE SOURIS. 





Best-seller incontesté 
du trattement de texte franeais. 


Partagez le plaisir 

d'écrire avec Épistole. 

Modèle de simplicité et 

de puissance, ce logiciel 

est l'outil idéal pour tous 

vos traitements de texte à 

français. 

En un clin d’œil, Épistole 7 

rédige toutes vos lettres, vos 

rapports et vos mailings — avec 

le souci en moins. 

Vous voulez effacer un mot, changer 

une phrase, déplacer un paragraphe? 
| Rien de plus simple, l'écriture 





souris vous laisse les mains libres! 
Épistole vous offre l’écriture facile. 
A vous l'imagination! 


ss DÉMONSTRATION ET VENTE CHEZ VOTRE CONCESSIONNAIRE AGRÉE APPLE. 


19, RUE GANNERON 75018 PARIS 






VERSION CALC 


LE CALCUL SOURIS. 


Premier tableur graphique 
multi-fonctions utilisant la souris. 





Voici enfin le logiciel 
adapté à toute votre 
gestion quotidienne. I] 

suffit d’une simple 

pression du doigt avecla N 
souris pour comprendre que 
toutes vos opérations de prévisions, 
de synthèses ou d'analyses, 
deviennent alors un jeu 

d’enfant. 

Vous souhaitez une représen- 
tation graphique? Facile! Ouvrez 
une fenêtre, cliquez et faites le plein 
d'images. 

De mémoire de logiciel, on n'avait encore 
jamais vu une telle facilité alliant puissance 
et rapidité. 


_ 


Ca 
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Gestion de fenêtres texte 


Georges Zwingelstein 


La mode élant au Macintosh, sa 
souris et ses fenêtres. je nai pu 
m'empêcher de succomber à la ten- 
tation de donner une de ces particu- 
larités à l'Apple Il: les fenêtres. J'ai 
choisi de gérer les fenêtres en écran 
texte plutôt qu'en haute résolution, 
car elles ont l'avantage d'occuper 
moins de place mémoire. d'avoir un 
temps de réponse acceptable, de ne 
pas nécessiter une gestion de curseur 
particulière, et surtout parce qu'elles 
servent, le plus souvent, à afficher 
des menus sur le Macintosh. 

Ce programme permet à l'aide de 
l'ampersand (&}) de créer, d'ouvrir. 
de fermer et d'échanger à volonté 
des fenêtres, pouvant se superposer 
les unes aux autres. sans perte d'in- 
formations. 


Les commandes 


Les principales commandes concer- 
nent : 

- la création 

- l'ouverture 

- la fermeture 

- l'échange. 


La création 


Lo syntaxe est la suivante : 

& C NF.MDMGMH,MB.CH (C 
pour Créer) 

avec les conventions suivantes : 

e NF représente le numéro de la fe- 
nêtre (compris entre 1 et 127). 
MD définit la marge droite. 

MG définit la marge gauche. 

MH délimite la marge haut. 

MB délimite la marge bas. 

CH est le code écran (optionnel) 
du caractère délimitant les bords 
de la fenêtre. les marges étant 
données par rapport à ceux-ci 


Pour obtenir. par exemple, une fené- 
tre remplissant tout l'écran. il suffit de 
donner l'ordre : 

& C1.1,40.1.24 (en 40 colonnes) 

& C1.1.80.1.24 (en 80 colonnes) 


Ce logiciel fonctionne égaiement en 
80 colonnes sur Apple //e. Quelques 
remarques sont néanmoins nécessai- 
res sur une utilisation en 80 colon- 
nes, les commandes d'ouverture et 
de fermeture de fenétre utilisant les 
adresses | standard, pour la protéger 
($20-$23 ou 32 à 35 en décimal) 


- les colonnes étant numérotées de 1 
à 80. on ne peut protéger une fené- 
tre qu'entre une colonne impaire (à 
gauche) et une colonne paire {à 
droite). 

- la marge gauche est donc arrondie 
au premier nombre impair inférieur 

- la marge droite est. de la même 
façon, arrondie au premier nombre 
pair supérieur 


Par exemple, pour une fenêtre sur 
les deux colonnes 65 et 66, jes 
commandes suivantes sont équiva- 
lentes : 

&C1.65,65... 

&C1,66,65.... 

&C1,65,66.... 

&C1,66,66.... 


L'ouverture 


& O NF (O comme Ouvrir) 

où NF représente le numéro de la fe- 
nêtre que l’on désire ouvrir. C'est 
tout. 


La fermeture 


La commande de fermerture est en- 
core plus simple, puisqu'on ne peut 
fermer que la fenêtre se trouvant au- 
dessus de toutes les autres : 

& F (F comme Fermer) 


L'échange 


Enfin, la commande permettant de 
faire passer une fenêtre au-dessus de 
toutes les autres est légèrement plus 
compliquée, le numéro NN de la fe- 
nêtre à remonter ne pouvant être 
connu de l'ordinateur : 

& E NF (E comme Echanger) 


Attention : afin d'améliorer notable- 
ment la rapidité du transfert, cette 
commande crée dans le sens décrois- 
sant. à partir de l'adresse $2FF 
(c'est-à-dire sur un morceau du buf- 
fer d'entrée}, une table des adresses 
des fenêtres concernées par le trans- 
fert, ii v a donc risque de recouvre- 
ment d'une commande préalable- 
ment entrée au clavier, si celle-ci fait 
sensiblement plus de 255 — 2 * 
(nombre d'adresses) caractères. 
Dois-je vous rappeler, au passage, la 
commande qu'il ne faut pas oublier 
sous peine de perdre votre sang 
froid ? L'initialisation. [] s'agit de : 

& I (1 comme ???) 

Cette commande est automatique- 
ment réalisée lorsqu'on lance le pro- 
gramme. elle identifie le type de 
l'Apple, ainsi que lachvité d'une 
éventuelle carte 80 colonnes sur 
Apple //e, crée une pseudo fenêtre 
de numéro © juste sous le début du 
programme. puis efface les variables 
(CLEAR)} et enfin positionne HIMEM 
sous la première fenêtre. 


Le positionnement 


&P FMGMH (P comme Position- 
ner) 

permet de déplacer une fenétre: ce 
qui autorisera une mise en place plus 
facile des différentes fenêtres utilisées 
dans un programme. NF est comme 
à l'habitude le numéro de la fenêtre, 
MG et MH les nouvelles marges gau- 
che et haut de la future position de 
cette même fenêtre. 
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Attention: comme pour l'échange, 
une table est créée dans le buffer 
d'entrée. 

J'ai d'autre part activé, pour vous 
soulager, la touche de tabulation, 
celle de l'Applesoft ne fonctionnant 
pas correctement en 80 colonnes, et 
j'ai également repris, en la modifant 
un peu, la routine de menu proposée 
par Denis Sureau dans l'article ”’La 
programmation facilitée” du Pom's 5, 
Ces commandes travaillent à l'inté- 
rieur de la fenêtre, quelle que soit la 
position de celle-ci. Par exemple, 
pour positionner le curseur sur la 
première ligne et la première colonne 
de la fenêtre, on utilisera : 

& VTAB 1:& HTAB 1 

Ces commandes ne seront pas tou- 
jours nécessaires, le programme se 
chargeant de mémoriser et de rappe- 
ler la position du curseur, lorsque 
celui-ci change de fenêtre. 


Pour appeler la routine de menu, la 

commande sera : 

& LET NV,VT,LNNK(,IL) 

avec les conventions suivantes : 

e NV = nom d’une variable 

e VT = tabuilation verticale dans la 
fenêtre 

e LN = longueur de la barre en in- 
verse 

e NI = nombre d’items 

e IL = interligne (optionnelle, l'inter- 
ligne initiale étant de 1}. 


La routine vérifie d'abord que l’en- 
semble du menu rentre à l'intérieur 
de la fenêtre, utilise non plus des 
chiffres mais des lettres à partir de 
“A” pour la sélection, ce qui autorise 
un nombre d'items compris entre 1 
et 26 et tient compte des flèches ver- 
ticales de l'Apple //e. De plus. la 
barre de sélection n'inverse que les 
caractères inversables. 


J'ai enfin transformé un sous-pro- 
gramme qui me permettait de dépla- 
cer HIMEM pour créer une fenêtre 
sans perdre les variables chaînes, en 
une commande : 

& HIMEM : NNNN 

où NNNN représente la nouvelle va- 
leur non pas de HIMEM, mais du 
début de la zone libre entre les fené- 
tres et le programme, vous permet- 
tant d'y charger vos propres routines 
(le début du programme se trouve 
en $8A00 ou 35328 en décimal). 


Désirant, de plus, pouvoir récupérer 
la place d'une fenêtre devenue inu- 
tile, il m'a été nécessaire de rajouter 
la commande : 

&D NF (D comme Détruire)} 

avec laquelle on peut détruire la fe- 
nêtre de numêro NF à condition que 
celle-ci soit fermée, ce qui est évident 
si elle est devenue inutile. 


Enfin, comme il est beaucoup plus 
agréable, dans un programme Basic, 
de n'avoir qu'à charger une fenêtre 
préalablement créée et sauvée sur 
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Applemania 


Symptômes. 


OÙ NON OUE NON 
L Je veux connaître PRODOS sans être un pro 5. Pianoter des nuits entières, c'est planant. Mais 
du DOS planer tour seul, c'est frustrant. 
2. Ami des bêtes, je cherche un chat à puces pour 
colorier ma souris en mauve 


3. Devenir à l'aise comme Blaise en Pascal quel ed! 1] ? Appeler un S.O.S. informatique quand 








NO 6. Je veux relier mon lave-vaisselle à mon Applel L CIC] 


a 5 la technique coince, ça dépanne. C1] 
4, Mon baud à 7 bits cherche un 8° pour compléter À Ne 
son protocole X-On X-Off en vue d'une liaison 8. le veux apprendre à mieux gérer mon bureau 
durable CC  enle jerant par les fenêtres de Macintosh. 00 











3 OUL et MOINS : vous êtes en pluine 4 a 7 OUI vous êtes contagieux, vous 8 à 10 OUI : brave. venez d'urgence culniver 
incubation, prenez des mesures ! serez bien entoure au Club Apple voire passion au (.luh Apple 


Remède : REJOIGNEZ LE CLUB APPLE 


Plein, plein d'avantages vous v attendent 










- une messagerie électronique gratuite, - des stages d'initiation et de perfectionnement animés 
- un numéro de téléphone pour consulter les ingénieurs par les “gourous” du Club, 
Apple 7 jours sur 7; des voyages organisés en Californie ; 
: - une librairie spéciale Club ; E 


- tous les mois, le journal du Club : - un Apple Check pour bénéficier de conditions de 8 


L'Echo des Apple: crédit préférentielles ; £ 
- des conférences, réunions d'information, projections - des rencontres organisées avec d’autres 
privées et rencontres avec des “pros” Applemaniaques. 













BULLETIN-REPONSE 


Je désire recevoir, sans engagement de ma pari, une documentation complète sur Le Club A pple et votre lormulaire d'insenption 
NOM 


ADRESSE 


CODE POSTAL 
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disquette, on disposera des quatre 
commandes suivantes : 


&SAVE "NOM"F1 

pour sauver la fenêtre numéro F1 à 
h suite de celles précédemment sau- 
vées dans un fichier d'un type nou- 
veau. Celui-ci apparaît comme bi- 
naire dans le catalogue. 


&LOAD "NOM'",FILNI1 
pour charger la N1 ième fenêtre du 
fichier en lui donnant le numéro F1. 


&STORE "NOM" FI1,N1 

pour sauver tes marges et le contenu 
de la fenêtre F1 à la place de la N1 
ième fenêtre du fichier (it faut que les 
dimensions soient identiques). 


&RECALL "NOM',.N1F1 

pour effectuer la réciproque de 
&STORE sans rappeler les marges: 
"NOM" représente une chaîne de 
caractères contenant le nom du fi- 
chier, dans lequel on ne peut sauve- 
garder plus de 127 fenêtres (ce qui 
est largement suffisant dans la plu- 
part des cas, surtout qu'il n'est pas 
possible d'avoir un catalogue des fe- 
nêtres), accompagné si nécessaire 
des numéros de drive et de slot sui- 
vant la syntaxe du DOS. 


Pour SAVE et LOAD 

e si N1 n'est pas précisé, il est pris 
égal à F1 

e si ni F1, ni N1 sont donnés, alors 
le programme charge toutes les fe- 
nêtres en leur donnant un numéro 
croissant (sauve toutes les fenêtres 
par numéro croissant à la suite du 
fichier). 


Pour STORE et RECALL : 

e les valeurs par défaut de F1 et N1 
sont : 
N1 = F1 si N1 n'est pas donné, et 
N1 = F1 = 1 si Fl et Ni sont 
inexistants. 


Remarques 


Chaque fois qu'une fenêtre est créée 
ou chargée, la routine FRE(O) est ap- 
pelée. Les commandes de gestion de 
fichiers de fenêtres ne vérifient pas la 
fermeture de la fenêtre E sera donc 
possible, par exemple. de fusionner 
des fenêtres ou de récupérer un mor- 
ceau d'une fenêtre en ouvrant la 
nouvelle par dessus puis en ia sau- 
vant avant de la fermer 

1 est possible de faire ressortir les fi- 
chiers de fenêtres en POKant dans la 
table des caractères des types de fi- 
chiers. le code voulu à l'affichage du 
catalogue. par exemple 

POKE 45998. 198 pour leur ddnner 
le type °F” 

Tous les paramètres peuvent être 
donnés sous forme d'expression. le 
programme utilise les routines d'éva- 
luation de nombre ou chaîne de ca- 
ractères de l'Applesoft. 


Les messages d'erreur 
Les messages d'erreur utilisés ont été 


détournés de leurs significations origi- 
nelles. 


— OÙT OF MEMORY indique que la 
place nécessaire à la création d'une 
fenêtre est insuffisante ou que le dé- 
placement de HIMEM entraînerait un 
recouvrement soit des variables, soit 
du programme de gestion des fené- 
tres. 

— UNDEFD STATEMENT signale 
une opération sur une fenêtre inexis- 
tante. 

— REDIM'D ARRAŸ souligne le fait 
que l'on veut créer ou charger une 
fenétre dont le numéro a déjà été at- 
tribué. 

— OVERFLOW indique une opéra- 
tion entraînant un dépassement de 
capacité {ouvrir une fenêtre déjà ou- 
verte, en fermer une quand il n'y en 
a plus à fermer, ou RECALL ou 
STORE sur des fenêtres qui n'ont 
pas les mêmes dimensions). 

— ILLEGAL QUANTITY sert pour 
toutes les valeurs interdites : mauvai- 
ses marges, mauvais numéro de fe- 
nêtre, Valeurs impossibles d'un ou 
des paramètres du menu, destruction 
d'une fenêtre ouverte. 


Enfin, deux messages du DOS utili- 
sés par le programme : 

— OUT OF DATA signale que le fi- 
chier a moins de N fenêtres, si l'on 
veut accéder à la N ième fenêtre. 

— DISK FULL indique soit une dis- 
quette pleine, soit un fichier conte- 
nant 127 fenêtres, lorsque l'on veut 
Sauver une fenêtre. 


La structure du 
programme 


Pour les utilisateurs de l’assembleur 
et les autres, voici quelques informa- 
tions sur la structure du programme 

Le programme se charge en $89EE, 
commence par brancher l'ampersand 
(S8SEE à $89FF) puis saute à la 


routine d'initialisation. 

Celle-ci, crée juste sous l'adresse 
contenue en $8A00 — $8A01 le 
contenu initial est $8A00), une pre- 
mière fenêtre de numéro 0 corres- 
pondant à tout l'écran et ne possé- 
dant pas de buffer. HIMEM pointe 
alors sur cette fenêtre. 

Lorsqu'une fenêtre est créée ou 
chargée, les chaînes ainsi que 
HIMEM sont déplacées vers le bas 
grâce à une partie de &HIMEM, 
pour laisser la place à la nouvelle fe- 
nêtre, qui y est alors copiée. 

Lorsque le programme cherche une 
fenêtre, il part de celle pointée par 
HIMEM et remonte jusqu'à la fenêtre 
de numéro 0. 

Vous pouvez vous libérer de la place 
pour vos propres routines : soit de 
manière temporaire avec &HIMEM 
(&] replace la fenêtre O juste sous 
$8A00), soit de manière définitive en 
modifiant l'adresse $8A00 — $8A01 
et en réinitialisant. L'interpréteur se 
termine en $8A0F par un saut à la 
routine d'erreur de syntaxe du Basic, 
que vous pouvez donc détourner. 


Une fenêtre est mémorisée sous 
forme de 2 parties : les données la 
caractérisant et le buffer qui contient 
ce qui sera affiché à l'écran. 


— Les données comprennent : 

e le numéro de la fenêtre 

e le numéro de la fenêtre ouverte 
suivante (nul si c’est la dernière fe- 
nêtre ouverte, c'est-à-dire celle qui 
est au-dessus des autres). 

e les 2 octets de mémorisation des 
tabulations verticales puis horizon- 
tales (tabulations dans la fenêtre). 

e les 4 marges de la fenêtre (dans le 
format qui permet une recopie di- 
recte dans les mémoires $20-$23). 


La gestion des fichiers sur disquette 
utilise quelques routines du DOS 
pour l'ouverture et la fermeture des 


Mas : Le moniteur étendu 


Jacques Supernant 


Apple +, //e, //c 


£e moniteur autorise un contrôle de lexécution des 


routines en /8n9g8ge machine. 


e Un mode Trace et Pas à Pas très évolués et 
sélectifs sont complétés par un accès direct 


aux regtstres du 6508 fou 5S5COE1 


# est ainsi 


Possible de es initie//ser & son gré ou $ laide de le 


routine de hasard. 


La gestion des fenêtres d'écran simplifie le 


mode Trace. 


Une routine £ermet /a recherche de suites 


d'octets. 


Un mini-assembleur trés souple fait partie de 


NAIAX, 


Une figne de commande peut devenir une 
boucle avec /ord'e AN IP. 


Les fichiers source sont sur la disquette. 
Disquette et documentetion : 150,00 F TIC franco 


(bon de commande page 78). 
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fichiers puis le File Manager pour 
gérer le contenu qui est organisé de 
la manière suivante : 

Le premier octet contient le nombre 
de fenêtres dans le fichier. Puis on 
trouve les fenêtres enregistrées de 
manière séquentielle (de même que 


enregistrement contient deux zones : 
la zone des données qui ne 
comprend que les 4 marges, puis la 
zone du buffer qui contient le 
contenu de la fenêtre). 


Je termine enfin. en vous souhaitant 


N.D.L.R. : Le listing du programme 
Basic a êté quelque peu modifié pour 
les lecteurs n’ayant pas la disquette 
d'accompagnement à leur disposition. 
La version otiginale (sur la disquette) 
charge les fenêtres FGEN, FPRE et 
FPOM'S 14. 





pour l'organisation en mémoire, un Plein de petites fenêtres ! = 
Programme ESSAI 250 & C127,1,C0L,20,24,32: & 0127: GOSUB 
1000 
10 TEXT : HOME 260 & VTAB 3: & HTAB 3: PRINT "OUVERTU 
20 PRINT CHRS (4)°BRUN WINDOW° RE DES FENETRES";: GOSUB 1000 
30 NN = 9:COL = 40: REM METTRE BO POUR ES 300 FOR 1 = 1 TO NN: & OI 
SAI EN 80 COLONNES, ET PRINT CHR$<« 310 & VTAB 3: & HTAB 3: PRINT “FENETRE 
4)"PR£3° AVANT LA LIGNE 20 “"51;: GOSUB 1000 
100 & UVTAB 10: & HTAB S: PRINT “EXEMPL 320 NEXT I 
E D'UTILISATION DES FENETRES" 330 & E127: GOSUB 10003 & HTAB 3: PRINT 
110 & VTAB 13: & HTAB 7: PRINT “PATIEN "PUIS ECHANGE DES FENETRES";: GOS 
CE, JE CREE DES FENETRES" UB 1000 
200 FOR 1 = 1 TO NN 400 FOR I = 1 TO NN: & EI: GOSUB 1000: N 
210 MG = COL * RND (17 + I1:MD = COL *# R EXT I 
ND (12 + 1: IF MD — MG < 12 THEN 2 410 & E127: GOSUB 1000: & HTAB 3: PRINT 
10 "ENFIN FERMETURE DES FENETRES"® ;: 
220 MH = 24 # RND {1 + 1:MB = 24 *  RND GOSUB 1000: & F: GOSUB 1000 
C1) + 1: IF MB -— MH < 4 THEN 220 500 FOR I = 1 TO NN: & F: GOSUB 1000: NE 
230 & CI,MG,MD,MH,MB,256 * RND (1) XT 1 
240 NEXT 1!I 999 ENO 
245 SPEED= 100 1000 FOR J = 1 TO 1000: NEXT J: RETURN 
E MODIF. ECHANGE. 
Source Big MAC 35 ESSAIMOU = ! ;ASSEMBLAG 
Programme WINDOW.S E MODIF. DEPLACE 
36 ESSAIBO = 0 :ASSEMBLAG 
À 226262 26 36 JE DE 6 DE DE DE DE DE DE 6 34 D 36 De JE DE D JE DE 36 DE JE DE 3 6 E MODIF. SCREENIT 
2 * # 37 ; POUR BO COLOMMES 
3 *# PROGRAMME DE GESTION DE # 38 PAG 
4 *# FENETRES TEXTES % 39 *# 
5 *# # 40 x COMIAANDES MACROS Le 
6 *# PAR G. ZWINGELSTEIN # 41 DO 0 te 
7 *# # 42 ti 
GB 622 3626 4 36 DE D JE M M+-DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE D 43 INCR MAC Qu 
A 44 INC 81 F 
10 LISTING KBD  ;DEMMNDE AFFICHAGE LI 45 BNE NI 
STING 46 INC S1+1 o 
11 DO LISTING 47 NI <<< ' 
12 ELSE 48 
13 LST OFF 49 DECR MAC 
14 FIN 50 LDX St | 
15 SAVEOBJT KBD ;DEMANDE SAUVEGARDE D 51 BNE ND 4% 
U CODE OBJET 52 OEC S1+1 
16 DO SAVEOBJ 53 ND DEC $1 
17 DSK WINDOW 54 <<< 
1B FIN SS 
19 EXP OFF 3IMPRIME S 56 CPR MAC 
EULEMENT LE CODE MACRO 97 LDA 51 
20 TR ON 53 BYTES P 58 CP 852 
AR LIGNES 99 LDA S1+1 
21 60 SBC 52+1 
22 *# SOUS-PROGRAMME DEPENDANT DE LA CA 61 <<< 
RTE BQ COL. : 62 
23 * VTAB 63 TR MAC 
24 x HTAB 64 LDA $£81 
25 # (GETPARAMN, GETNEUM , CHKMARGE) 65 STA 52 
26 # SAVECURS 66 <<< 
27 *# SCREENIT 67 
28 * INUERT 68 TRDB MAC 
29 # CALCBAS 69 >>> TR.S1:52 
30 * APPLEID 70 222 TR.SI+1:82+1 
31 71 <<< 
32 ORG S$B9EE 72 
33 73 TRAX MAC 
34 ESSAIECH = 1 JASSEMBLAG 74 LDA Si 
D 
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75 LDX S1+1 RS TEMP STRING DESCR. 
?7é STA 82 147 INDEX = $5E 
77 STX S62+1 148 VARTAB = $69 
78 «<c 149 ARYTAB = $68 
729 150 STREND = $6D 
80 AD MAC 151 FRETOP = $6F 
81 LDA 61 152 FRESPC = $71 
82 ADC 52 153 MEMSIZ = $73 5;HIMEM OÙ 
83 STA 53 BASIC 
84 <ce 154 CURLIN = $75 ;NUMERO LI 
85 GNE EN COURS 
86 ADD MAC 155 3; CCURLIN+1 = $FF SI MODE DIRECT) 
87 CLC 156 FORPNT = $85 3POINTEUR 
88 >>> AD.51;:52;53 SUR UNE VARIABLE 
89 222 AD.S1+162+1363+1 157 DSCLEN = $er 3 LONGUEUR 
90 <4« DU DESCRIPTEUR DE LA VAR. 
91 158 ARYPNT = $94 
92 SB MAC 159 IN = $0200 
93 LDA 51 160 AMPER = $03FS 
94 SBC s2 161 OLDCH = $0478 
95 STA 53 162 OURCH L $057B 
pé <<< 163 OURCU = $05FB 
97 164 KBD = $Co00 
98 SUB MAC 165 RDALTCAR = $COI1E LIT SUITC 
99 SEC H ALTERNATE CHARACTER SET (APPLE !I 
100 >>> SB.51;62;63 IE) 
101 222 ‘'S8.61+1;62+1;63+1 166 KBDSTRB = $C010 
102 <<< 167 CHRGET = $61 ; RECUPERE 
103 UN CODE D’UNE LIGNE BASIC 
104 BLMP MAC 168 CHRGOT = $B7 : IDEM SANS 
105 ADC Si INCR. TXTPTR 
106 STA 81 169 MEMERR = $D410 OUT OF ME 
107 BCC BPD MORY ERROR 
108 INC 614#1 170 ERROR = $D412 AFFICHE E 
109 BPD «ce RREUR POINTE PAR X 
110 171 RESTART = $D43C 3DEPART A 
111 FIN CHAUD DU BASIC 
112 PAG 172 CLEARC = $DééC 3 COMMANDE 
113 + CLEAR 
114 # CONSTANTES 173 NEUSTT = $D7D2 3 RETOURNE 
115 * AU BASIC 
ilé 174 UNDERR = $D97C >UNDEF. ST 
117 *# VALEUR DES TOKENS ATEMENT ERROR 
118 HTAB: = $96 175 PRINT = $DADS ; COMMANDE 
119 VTAB: = $A2 PRINT 
120 HIMEM: = $A3 176 FRMNUM = $DD67 3 RECUPERE 
121 RECALL: = $A7 UN NOMBRE 
122 STORE: = $A8 177 FRMEUL = $DD7B ;EVALUE LA 
123 LET: = $AA FORMULE POINTEE PAR TXTPTR 
124 LOAD: = $Bé 178 SYNERR = $DEC9 ISYNTAX ER 
125 SAVE : = $B87 ROR 
126 179 CHKCOM = $DEBE JVERIFIE L 
127 *# A PRESENCE D’UNE VIRGULE 
128 * VARIABLES 180 PTRGET = $0FE3 3TROUWE L’ 
129 + ADRESSE DE LA VARIABLE POINTEE PAR 
130 TXTPTR 
131 YSAUI = $1F 3 SAUVEGARD 1B1 IQERR = $E199 ;ILLEGAL Q 
E DU REGISTRE Y UANTITY ERROR 
132 UWNDLFT = $20 TABLE FEN 182 GIVAYF = $E2F2 3 TRANSFORM 
ETRE DU MONITEUR E A,Y EN FLOTTANT DANS FAC 

133 WNOUDTH = $21 183 GARBAG = $E484 ; EFFECTUE 
134 WNDTOP = $22 UN FRE<0) 
135 WNDBTH = $23 184 ; ET LONGUEUR DANS ACCU 
136 CH L $2A 185 FRESTR = $ESFD 3 CHECK STR 
137 EU = $25 ING AND GET POINTER TO 
138 BASL = $28 186 ; STRING IN INDEX AND LENGTH IN ACC 
139 PROMPT = $33 U 
140 AIL = $3c 187 GETBYTC = $E6Fs 3SAUTE 1 C 
141 A2L = $3E ARACTERE ET GETBYT 
142 A3L = $40 188 GETBYT = $E6F8 ; RECUPERE 
143 A4L = $42 UN NOMBRE <256 
144 LINNUM = $50 189 GETADR = $E752 ; COWERTI 
145 TEMPPT = $52 EN ENTIER OANS LINNUM 
146 TEMPST = $5s ;5POINTE VE 190 OVERFLOU = $E8D5 3 OVERFL OU 

EEE 
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ERROR 240 DA INIT-1 ,CREE-1 ,OUVRE-1 
191 SETFOR = $EB27 : TRANSFERT , FERME-1 , ECHANGE -I ,DETRUIS-1 
FAC DANS VARIABLE TROUVE PAR PTRG 241 DA DEPLACE-I 
ET 242 PAG 
192 SETTXT = $FB39 243 PUT  WINDOWI 3GESTION F 
193 PRNTAX = $F941 >ENWOIE A, ENETRES 
X EN HEXA 244 PAG 
194 BASCALC = $FBCI ;s CALCUL AD 245 PUT WINDOW2 GESTION F 
RS LIGNE TEXTE ICHIERS FENETRES 
195 COUT = $FDED 246 ERR */$9600 :FIN PROGR 
196 MOQUE = $SFE2C 3DEPLACE <« APE EN DESSOUS $9600? 
AIL) À CA2L) EN (CA4L) 247 FINPRMG = # 
197 PAG 
198 * 
199 # INITIALISE POINTEUR DE L'AMPERSAN 
D 
200 DEPART LDA £$4C CODE DE J HCT.OBJ 
MP 1 2626 26 36 26 DE JE DE JE DE 36 DE DE DE DE DE DE DE DE DE DE JE DE DE DE DE DE DE D DE DE JE 
201 STA  AMPER 2 * % 
202 LDA £<DEBUT 3 * HARDCOPY POM’S # 
203 STA AMPER+1 4 * % 
204 LDA £>DEBUT D 4626 36 26 36 36 JE 36 JE DE DE JE DE DE DE DE DE DE JE DE DE DE DE DE DE DE DE JE DE JE 36 JE 
205 STA  AMPER+2 é 
204 JMP _INIT 7 CR) = $80 
207 8 
208 DEBUTPRM = % 9 CU = $25 
209 FRSTUND DA  DEBUTPRM ;ADRESSE D 10 BASL = s28 
EBUT PLACE LIBRE POUR FENETRES 1i 
210 12 BASCALC = $FBCI 
211 3636 36 26 DD DE DE DE DE DE DE DE DE DE DE IE DE DE DE DE DE DE DE DE DE DE DE DE DE DE D 13 COUT = $FDED 
212 x INTEPRETEUR DE L'AMPERSAND  *# 14 
213 26 26 26 26 26 26 26 26 26 DE DE DE DE DE DE DE DE DE DEDE DE DE DE DEDE DE DE DE DE DE EH 15 ORG +$0300 
214 16 
215 * 17 LDA £$00 
216 x RECHERCHE CODE DE LA COMMANDE 18 STA CV 
217 DEBUT PHA 19 H0304 LDY £$00 
218 JSR CHRGET sAJUSTE TX 20 JSR BASCALC 
TPTR 21 H0309 LDA (BASL),Y 
219 PLA 22 CNP £+40 
220 LDX  £TBCMDADR-TBCH1D 23 8cS HO031C ;FLASHING 
221 NEXTOMD CP TBCMD-I,X ET NORMAL 
222 8EQ  CMDFOUND 24 CMP  £$20 
223 DEX 25 BCS H0319 ;=SPECIAL C 
224 BNE NEXTCHD HARACTERS 1NWERSE ÿ 
225 JMP  SYNERR 26 CLC  ;UPPERCASE LETTERS IN 
226 * UERSE 
227 CMDFOUND DEX 27 ADC £$co 
228 TXA 28 JMP  H031C 
229 ASL 29 # PROBLEME AVEC UPPERSCASE LETTERS 
230 TAX CODE $80-$9F (CODE CONTROLE) 
231 LDS  TBCMDADR+1,X 30 * 
232 PHA 31 H0319 CLC 
233 LD TBCMDADR,X 32 ADC £s$80 
234 PHA 33 H031C UJSR COUT 
235 RTS ;RETOUR PAR LA COMMN 34 1NY 
DE 35 CPY  £40 
236 36 BNE H0309 
237 TBCMD DF8 UTAB: ,HTAB:,LET:,LOAD 37 LDA  £CR} 
1, SAVE : , STORE : ,RECALL : ,HIMEM: 38 JSR COUT 
238 DF8 PA ICT ST OST ELSTESS* 39 INC [AU] 
D;<P° 40 LDA CV 
239 TBCMDRDR DA UTAB-I ,HTAB-1 ,MENU-1, 41 CMP  £24 
LOAD-I,SAVUE-I ,STORE-1 ,RECALL-I ,HIM 42 BNE H0304 
EM-1 43 RTS 
0329- FD Eé 25 AS 25 C9 18 D0 89F8- A9 8A 8D F7 03 4C 59 6A 
HCT.OBJ 0330- D3 60 8A00- 00 BA 4B 20 81 00 68 A2 
#300.331 8A408- 0F DD 20 84 FO 06 CA DO 
8A10- F8 4C C9 DE CA 8A 0À AA 
0300- A9 00 95 25 AO 00 20 C1 WINDOW 8A18- BD 31 8A 48 BD 30 6À 48 
0308- FB B1 28 C9 40 BO 0D C9 #B9EE .8A21 8420- 60 À2 
0310- 20 80 0é 18 69 CO 4C IC 
0318- 03 18 69 80 20 ED FD C8 99EE- A9 4C 
0320- CO 28 D0 ES ÀA9 8D 20 ED 89F0- 8D F5 03 A9 02 8D Fé 03 
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Graphiques aléatoires 


Thieny Han 

Je vous propose un intéressant exer- qu ‘une touche ait été frappée 

cice de style avec quatre petits pro- e 210-230 : boucle à la ligne 100 
grammes d'animation graphique 299 fois sur 300, sinon efface et 
aléatoire. Trois sont en Basic et nous recommence une fois sur 1200, 
permettent de bien saisir le déroule- sinon boucie en 60 avec de nou- 
ment de l'animation. Le quatrième - veaux points 

le plus beau - he ne démar- e 240 : mode texte et fin 

che, mais en assembleur, démontrant _ ! 

en chemin comment réutiliser quel- QUATRE choisit une ligne dans le 
ques routines mathématiques et gra- quart supérieur gauche de l'écran 


(60-65) et la reproduit ”’en miroir” 
sur les 3 autres quarts (ligne 100). 

Le principe commun (sauf CARRE) CARRE utilise une seule variable X 
consiste à faire “rebondir” une ligne ct trace à chaque itération 4 lignes, 
sur les limites d’un rectangle. soit une ligne à une distance X de 
Un segment de droite se caractérise chaque bord d'un carré. 

par ses extrémités, c'est-à-dire par les HUIT est en assembleur. Certes ! 
coordonnées de 2 points, soit XO, YO Mais il procède du même esprit et a 
et XI, Y1. exactement la méme structure. De 
Chaque boucle leur ajoute un dépla- plus, par rapport à QUATRE, il cons- 
cement horizontal et vertical, positif truit dans chaque quart d'écran une 


phiques de la ROM Applesoft. 


ou négatif (AX, AY et BX, BY), dé- image supplémentaire par retourne- 
calant une ligne de longueur variable ment sur une diagonale et. à des fins 
sur l'écran. de symétrie totale, considère l'écran 
Le ‘rebond’ survient quand une ex- comme étant carré avant de l’étirer 


trémité de la ligne atteint la limite du aux dimensions de 280 + 192 qui 
rectangle alloué, ceci électivement sont celles de la page graphique de 
pour le sens de déplacement rendant ce cher Apple. (Notons que le rap- 
ke point ”’hors-limites” (d'où modifi- port 280/192 peut se réduire à 
cation de rotation). 35/24, valeurs apparaissant dans le 
En commun également le tirage au programme.) 

sort par RND(1) des extrémités de la 


droite, des RTE et de HCO- Le programme commence donc par 
LOR (0 à 4). fabriquer le nombre flottant stocké 


dans F sur cinq octets valant 35/24; 
Suivons pas à pas le programme vous le verrez réutilisé pour ajuster 


I NE 


LIGNES : les abscisses. 

e 50 : haute résolution page 2 Vous trouverez ci-après une brève 

e 60-65 : tirage des coordonnées de descriphon des principales adresses 
2 points et routines utilisées : 

e 70-75: tirage de leurs déplace- 
ments e PAGE1 ou $C054 sélectionne la 

e 80: stockage de leur valeur abso- page 1 {texte ou graphique) 

La. lue, servira à tester le dépasse- e TEXTE ou $CO051 sélectionne le 
ment mode texte (page 1 ou 2) 

e 85: on démarre en blanc e CIAV ou $C000, si une touche a 

© 100: traçage de la ligne définie en été frappée. est >= $80 et 
60-65 contient le code de la touche frap- 

e 110: ajout des déplacements (po- pée 
sitifs ou négatifs) e STRB ou $C010 rend $C000 < 

e 120-150: si un point doit se re- $80 
trouver hors-limite à l'itération sui- e HGR2 en $F3D8 identique au 
vante, alors inversion du déplace- Basic et de même pour RND 
ment et nouvelle couleur ($SEFAE) 

e 200: teste le clavier : une jouche e HCOLOR en $F6F0, appelé avec 
a été frappée si PEEK(-16534) > le code (0. 7) de la couleur dans 
127 ($C000 >= $80) X. ajuste l'octet $E4 utilisé par 

Si oui: lit le caractère frappé HPLOT et HLINE. Le point d'en- 
remet le clavier en attente (adresse trée habituel. en $FGEC, vérifie 

-16368 = $C010) que X < 8 
si "E” (CHR$(197)) : efface et re + HPLOT en $F457 trace un point: 

commence l'abscisse (0.279) est codée dans 
si ESC (CHR$(155)) : fin 2 octets, on charge l'octet haut 
si quelconque sauf SPACE, nou- dans YŸ, l'octet bas dans X et l'or- 

veaux points donnée dans A avant d'appeler 
si SPACE (CHRS$(60)): attend HPLOT 


en 
30 





e HLINE en $F53A comme en 
BASIC; octet haut de l'abscisse 
dans X, bas dans À et ordonnée 
dans Ÿ 

Un nombre réel est représenté par 

Applesoft sur 5 octets (forme 

compactée) ou, en page O0 pour être 

mouliné”, étendu sur 6 dans FAC 

($9D-A2) où ARG ($A5-AA). 

e YTOFAC alias SGNFLT ou $E301 
convertit un entier de 0.255 
chargé en Ÿ en réel dans FAC 

e INTTOFAC en $E2F2 convertit un 
entier (-32768.+32767) chargé 
en À (partie basse) et YŸ (partie 
haute) en réel dans FAC 

e FACTOINT en $E10C aurait pu 
faire l'inverse. Eh bien non! Il 
tronque, si possible, FAC en entier 
laissé dans 2 octets de FAC : $A0 
et $AI 

e FACTOMEM en $EB2B compacte 

le réet dans FAC (6 octets) et le 

transfère à l'adresse pointée par Ÿ 

(partie haute) et X (partie basse) 

FACTOARG en $EB63 transfère 

FAC dans ARG 

FMULTM en $E97F transfère un 

réel en mémoire pointé par Ÿ 

(adresse haute) et A (adresse 

basse) dans ARG et appelle 

FMULTI1 

e FMULTI1 en $E982 multiplie FAC 
par ARG et larsse le résultat dans 
FAC - cette routine ”prise en mar- 
che” demande l'exécution préala- 
ble du sous-programme GETSGN 
(à la fin de HUIT) 

e FDIV en $EA69 divise ARG par 
FAC et laisse le résultat dans FAC 
- nécessite GETSGN (même re- 
marque que pour FMULT1) 

e INTL et INTH sont les deux octets 
de FAC où FACTOINT laisse son 
résultat 


Nous savons charger un nombre 
dans FAC, multiplier, diviser, tron- 
quer. appeler RND et les routines 
graphiques. HUIT calcule 35/24, 
choisit ses points. ses vitesses de dé- 
placement (1 à 4) et ses couleurs de 
façon identique aux programmes 
Basic, lit le clavier et boucle de façon 
analogue. 
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Programme QUATRE 


10 REM  QUATRE 

50 HGR2 

60 X0O = RND C1) # 136:Y0 = RND (12 * 

65 X1 = RND (1) *# 136:Y1 = RND (12 * 

70 AY = RND (13 # 2 + 1:AX = RND (1) 
d:+":l 

75 BY = RND (13 # 2 + 1:BX = RND (1) 
CAES | 

80 QX = ABS CAX):QY = ABS CAYI:RX = 
$S CBX):RY = ABS (BY) 

85 HCOLOR= 3 

100 HPLOT X0,Y0O TO X1,Y1: HPLOT 279 - X0 


,YO TO 279 - X1,Y1 





HPLOT X0,191 


120 HPLOT O,X TO 191,X: HPLOT 0,X + 1 TO 
191,X + i 

130 HPLOT 0,190 - X TO 191,190 - X: HPEO 
T-0,191 - X TO 191,191 - X 

200 IF PEEK « - 16384) € 128 THEN 70 

210 X = PEEK € - 16384): POKE - 16368,0 
: ON X = 197 GOTO 50: ON X = 155 G 
OTG 230: ON X © > 160 GOTO 70 

220 ÙWAIT - 16384,128: POKE - 16368,0: 
GOTO 70 

230 TEXT : END 


Programme LIGNES 


YO TO X1,191 = Yi: HPLOT 279 - X0 
,191 = YO TO 279 - X1,191 = Y1 20 as LIGNES 
Ne TANT de ni Poe MAG = AN &12 # 27670 = AND <1) + 1e 
120 IF XO € OX OR XO > 139 - GX THEN AX 
A HOUR 65 XI = RND 61) # 2761 = RNO (1) * 18 
130 IF YO € QY OR YO > 95 — QY THEN AY = 
RS NE a à 70/0 RONA R EE RE NRC 
140 IF X1 € RX OR X1 > 139 — RX THEN EX x CURE 
Re ee EU ute 73 ÉXIE NO 38 274 11eX ARNO «0 
10/0 TERRES RER PR EURE PEN oO 2 ABS MAN AT = ABS LATIERX = AB 
= BY: HCOLOR= RND (1) # 4 Se eg 
200 IF PEEK € - 16384) > 127 THEN X = Dre 
PEEK € - 16384): POKE - 16368,0: 
ONIX =/197 GUTO-S0: (ON X°= 155 Gor |? 100, BPLOT XGAT0 TOY 
OF240 ON RE C0 1 DO A0 EURE ID ren RE TPE REE"E 
: = + 
210 IF Rd as D ar Po 120 IF XO € QX OR X0 > 279 - QX THEN AX 
220 IF RND (0) # 1200 < 1 THEN 50 Fo nr COR PR 
eo de 130 IF YO € QY OR YO > 191 - GY THEN AY 
OS EES CEon = - AY: HCOLOR= RND (1) # 4 
140 1F XI € RX OR X1 > 279 - RX THEN EX 
= - 8X: HCOLOR= RND (1) * 4 
Programme CARRE 150 IF Yi € RY OR Y1 ) 191 - RY THEN BY 
= — BY: HCOLCR= RND (1) # 4 
10 REM CARRE 200 IF PEEK € - 16384) ) 127 THEN X = 
50  HGR2 PEEK ( - 16384): POKE - 16368,0: 
60 HCOLOR= 3: GOTO 80 ON X = 197 GOTO 50: ON X = 155 GOT 
70 HCOLOR= RND (1) # 4 G 240: ON X € > 160 GOTO 60: WAIT 
80 X = INT € RND C1) * 48) » 2 _ 16384,128: POKE - 16368,0 
100 HPLOT X,0 TO X,191: HPLOT X + 1,0 TO | 210 IF RND C1) * 300 > 1 THEN 100 
X + 1,191 220 IF RND (0) # 1200 < 1 THEN 50 
110 HPLOT 190 - X,0 TO 190 - X,191: HPLO | 230 GOTO 60 
T 191 - X,0 TO 191 = X,191 240 TEXT : END 
Source Big Mac 18 YTOFAC EQU sE30! ;YREG = 
19 FACTOINT EQU $EI0C 3 INT<FA 
Programme HUIT.S CR INT 
20 RND EQU $EFAE ; RND <FA 
À 62626 2 2 0 0 0 0 6 6-36 36-26 36 D D D D D D UE D UE D DU DH D D D D 3 C) => FAC 
2 #GRAPHISMES ALEATOIRES 21 FACTOARG EQU $EB63 ÿFAC =) 
3 #PAR THIERRY HAN ARG 
4 DATE: 21/7/84 22 FMUCTM  EQU $E97F 3MEM CY 
D 22 D 36 6 DD D D D DD D D D DD D D D DD D D D DD D D 6 A) =} ARG; ARGY#FAC => FAC 
6 ; 23 FMULT1 EQU $E982 ARG#FA 
7 PAGE! EQU $C054 C =) FAC (NECESSITE GETSGN) 
8 TEXTE  EQU $C051 24 FDIV EQU sEA69 ;ARG/FA 
9 CLAU EQU $C000 C => FAC (NECESSITE GETSGN) 
10 STRE EQU $C010 25 INTTOFAC EQU $E2F2 Y/A =) 
11 ; FAC 
12 HGR2 EQU $F308 26 ; 
13 HCOLDR EQU $FéF0 27 INTL EQU sai 
14 HPLOT  EQU $F457 28 INTH EQU #A0 
15 HLINE  EQU SF534 29 ; 
16 ; 30 ORG $F00 ZONE D 
17 FACTOMEM EQU $E828 FAC =) E STOCKAGE 
MEM. CY,X) 31 X0 DFS 1 
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32 Yo DFS 


1 
33 x1 DFS 1 
34 Y1 DFS 1 
35 XX0 DFS 1 
36 YY0 DFS 1 
37 XXI DFS 1 
38 YY1 DFS 1 
39 AX OFS 1 
40 AY DFS 1 
41 EX DFS ! 
42 BY DFS 1 
43 ax DFS 4 
44 YREG DFS 1 
45 XREG DFS 1 
46 F DFS 5 ; CONSTA 
NTE 35/24 
47 ; 
ag ORG $803 
49 ;F=35/24 
so LOY #35 
51 JSR YTOFAC 
52 JSR FACTOARG 
53 LDY #24 
54 JSR YTOFAC 
ss JSR GETSGN 
56 JSR FDIV 
5? LOX #F 
58 LOY /F 
59 JSR FACTOMEM 
60 ; 
61 ;DESUT DU PROGRAMME 
62 : 
63 INIT LDX #3 ; HCOLOR 
=3 
64 JSR HCOLOR 
65 JSR HGR2 
66 ; 
67 ;CHOIX DES COORDONNEES (0-91) 
‘4 6B ; 
gi 69 TIRAGE JSR RND92 
1 70 STX X0 
il 71 JSR RND92 
di 72 STX YO 
Es | 73 JSR RND92 
d 74 STX X1 
2 75 JSR RND92 
F 76 STX Y1 
4 27753 
à 78 ;CHOIX DES VITESSES «1-4) 
# 79 ; 
PA 80 JSR RND3 
81 STX AX 
82 JSR RND3 
83 STX AY 
84 JSR RND3 
85 STX 8X 
86 JSR RND3 
87 STX BY 
88 ; 
89 ; 
90 ;VALEURS ABSOLUES 
91 3 
92 LOX #0 
93 CLC 
94 ABS LDA AX,X 
95 BPL ABS.NEXT 
96 EOR #SFF ; INVERS 
ION SIGNE 
97 ADC #1 
98 ABS.NEXT STA 0X.X 
99 INX 
100 CPX #4 
101 BNE ABS 
102 ; 





s 
;PLOTS DES 8 SEGMENTS 
; 
TRACES JSR TRACE4 
COINS 
JSR RETOURNE 
IQUES 
JSR TRACE 
JSR RETOURNE 
EN PLACE 


DEPLACEMENT DES POINTS 


LDX #0 
DEPL LDA X0,X 

CLC 

ADC AX,X 


STA X0 ,X 
INX 

CPX #4 
BNE DEPL 


; 
; 
TEST DE DEPASSEMENT 
î 


LOX #0 
TEST LDA #95 
SEC 
sc AXx,Xx 
CMP X0,X 
gCC INVERSE 
ax 
LDA X0,X 
CMP QX,X 
8CS T.NEXT 
INVERSE LDA #0 
SEC 
S8C AX,X 
E SIGNE 
STA AX,X 
STX XREG 
JSR NEWCOL 
LDX XREG 
T.NEXT _INX 
CPX #4 
BNE TEST 


TEST CLAVIER 


no se 


LDA CLAV 
8PL DO 

BIT STRB 
CMP #*E° 


BNE ESCAPE 
RET.I JMP INIT 
ESCAPE CMP #$98 


B8EQ FIN 

CMP #50 

BNE NEWDIR 
WAIT LDA CLAV 


SPL WAÏT 
LDA STRB 


3 QAUATRE 
3; SYMETR 


;PLOTS 
3REMISE 


:ADDITI 


3X0>95-— 


3X0 >AX 


; INVERS 


3RIEN 


3; EFFACE 


; = ESC 


; ESPACE 
AUTRE 
JATTENT 


SI RMDC(1)#512=0, NOUVEAUX POINTS 


3 

; 

; 

DO LDY #1 
JSR YTOFAC 
JSR RND 
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168 
169 
170 
171 
172 
173 
i74 
175 


176 


177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 


191 
192 


193 
194 
195 
196 
197 
198 
199 


200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 


21! 


212? 


£<ls< 


213 
214 
215 
2ï6 
217 
218 
219 
220 

221 

222 
223 
224 


225 
226 
227 
228 
229 
230 

231 

232 
233 


JSR FACTOARG 
LDA #2 
LDY #0 
INTTOFAC 
JSR FMULT 
JSR FACTOINT 
INTEL 
NEWDI R 
UVEAU 

JMP TRACES 
OUCLE 


Là 
3 SI RND<O)»#2048<1, EFFACE 


LDY #0 
JSR YTOFAC 
JSR RND 
JSR FACTOARG 
LDA #8 
LDY HO 
JSR INTTOFAC 
JSR FMULT 
JSR FACTOINT 
LDA INTL 
BEQ RET.Ï 
IT <EFFACE) 

JSR NEWCOL 
OUVELLE COULEUR 

JMP TIRAGE 
UX POINTS 


; 
NEWDIR 


FIN BIT TEXTE 
8IT PAGEI 


RTS 


LDA X0 


FPE 


RACE4 

AUCHE 
STA XX0 
LDA YO 
STA YY0O 
LDA X1 
STA XX1 
LDA YI 
STA YY1 
JSR TRACE 


SEC 
ROITE 

LDA H191 

sBC x$ 


STA XXO 
LDA YO 
STA YY0 
LDA 
s8c Xx1 
STA XX1 
LDA Y1 
STA YY1 
JSR TRACE 


SEC 
UCHE 

LDA X0 
STA XX0 
LDR #191 
s8c yo 
STA YY0O 
LDA X1 
STA XX1 
LDA #191 
Sec Y1 
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FF 
pl 


512 
3=0, NO 
320, 8 
2048 
5=0, IN 
sNOUVEAÀ 
s HAUT -G 
: HAUT -D 
: BAS-GA 


234 
235 
236 
237 
238 


239 
240 
241 

242 
243 
244 
245 
246 
247 
248 
249 
250 

25i 

252 
253 
254 
255 
256 
257 
258 
259 
260 

261 

262 
263 
264 
265 
266 

267 


268 


STA YY1 
JSR TRACE 


…. 


SEC ; BAS-DR 

OITE 
LDA #191 
S8c X0 
STA XX0 
LDA #191 
sec Yo 
STA YY0 
LDA #191i 
SBC Xx1 
STA XX1 
LDA #1t91 
S8C v1 
STA YY!{ 


Je 


LDY Xx0 
JSR MULTF 3*F 
LDA YYo 3Y 
LDX 
LOY INTH 
JSR HPLOT 
LDY XXI 
JSR MULTF 5 #F 
LDA 
LDX 
LOY YY1 5 Y 
JMP HLINE 


RACE 


] 
RETOURNE LDA XG 
ION X-Y 

LDX Yo 
STA YO 
STX X0 
LDA X1 
LDX YI 
STA Y1 
STX X1 
RTS 


; INVERS 


L 

$ 

5YSINT CRNDK 1)#92) 

RND92 LDY #92 
BNE RAND 

3YZ=INT(RND( 1) #3) +1 

RND3 LOY #3 
JSR RAND 
INX 
RTS 

;Y=INT CRNDC 1 ) #Y) 

RAND STY YREG 
LOY #1 
JSR YTOFAC 
JSR RND 





; RND( 1) 


JSR FACTOARG 
LDY YREG 
JSR YTOFAC 
JSR FMULT 3RNDC 1) 
*Y 

JSR FACTOINT 

LDX INTL 


RTS 
3 
FAC=INT(Y#35/24) 
JSR YTOFAC 


LDA #F 
LDY /F 


; 
MULTF 
535/24 


304 JSR FMULTM 312 STA 34B 


365 JMP FACTOINT 313 LDA $9D 
306 : 314 RTS 
307 FMULT JSR GETSGN :NECESS 315: à 
AIRE POUR FMULTIi 316 NEWCOL LDY #4 

308 JMP FMULTI 317 JSR RAND 
309 ; 318 JMP HCOLOR 
310 GETSGN LDA 34 319 : 
311 EOR 342 320 END 
HUIT 08A8- 19 OA AE 11 OF E8 EO 04 0968- 6D 06 0F A9 BF ED 03 OF 
A ASE 0880- DO Dé AD 00 CO 10 {A 2C 0970- 6D 07 OF 20 #7 09 38 A9 

. 0888- 10 CO C9 CS DO 03 4C 10 0978- 6F ED 00 OF 8D 04 OF A9 
0803- A0 23 20 01 E3 08C0- 08 C9 98 FO 4F C9 A0 DO 0960- 6F ED 01 OF 8D 05% 0F A9 
08089- 20 63 E8 A0 16 20 01 E3 08C8- 28 AD 00 CO 10 F8 AD 10 0988- 6F ED 02 OF 8D 06 OF A9 
0810- 20 10 OA 20 69 EA A2 12 0800- CO AO 01 20 01 E3 20 AE 0990- 6F ED 03 OF 8D 07 OF AC 
0918- AO OF 20 26 EB A2 03 20 0808- EF 20 63 E8 A9 02 AO 00 0998- 04 OF 20 FD 09 AD 05 0F 
0820- F0 F6 20 D8 F3 20 D4 09 08E0- 20 F2 E2 20 OA 0A 20 0€ 09A0- AE Al 00 AC A0 00 20 S7 
0828- 9E 00 OF 20 D4 09 6E O1 08E8- El AD A1 00 F0 03 4C 69 09A8- F4 AC 06 OF 20 FD 09 AD 
0830- OF 20 D4 09 8E 02 0F 20 08F0- 08 A0 00 20 01 E3 20 AE 0980- Al 00 AE AO 00 AC 07 0F 
0838- D4 09 6E 03 CF 20 DB 09 08F8- EF 20 63 EB A? 08 AO 00 0988- 4C 34 F5 AD 00 OF AE 01 
0840- 6E 08 0F 20 D8 09 8E 09 0900- 20 F2 E2 20 CA OA 20 OC 09C0- OF 8D 01 OF 8E 00 OF AD 
0848- 0F 20 D8 09 8E OA OF 20 0908- E1 AD Ai 00 FO 60 20 19 09C8- 02 OF AE 03 0F 8D 03 0F 
0850- D8 09 8E 06 0F A2 00 16 0910- OA 4C 25 08 2C S1 CO 2C 09D0- 8E 02 OF 60 A0 5C D0 0? 
0858- 680 08 OF 10 04 49 FF 49 0918- 54 CO 40 AD 00 0F 8D 04 0908- AO 03 20 DF 09 EB 60 8C 
0860- 01 90 0C OF E8 EO 04 DO 0920- OF AD 01 OF 6D 05 OF AD 09E0- 10 OF AG 01 20 01 E3 20 
0868- EF 20 16 09 20 88 09 20 0928- 02 OF 8D 06 0F AD 03 0F 09E8- AE EF 20 63 E8 AC 10 0F 
0870- 18 09 20 88 09 A2 00 6D 0930- 8D 07 OF 20 97 09 38 A9 09F0- 20 01 E3 20 0OÀ OA 20 0C 
0878- 00 0F 18 7D 08 OF 9D 00 0938- 6F ED 00 OF 80 04 0F AD 09F8- E1i AE A1 00 60 20 01 E3 
0880- OF E8 E0 04 00 F1 A2 00 0940- 01 OF 6D 05 OF A9 8F ED 0A60- A9 {2 A0 OF 20 7F E9 qC 
0888- A9 SF 38 FD OC OF DD 00 0948- 02 OF 8D 06 OF AD 03 0F 0A08- OC Ei 20 10 OA 4C 62 E9 
0890- OF 90 08 6D 00 OF DD 0C 09S50- 8D 07 OF 20 97 09 38 AD 0A10- AS AA 45 A2 35 AB AS 9D 
0898- OF 80 12 A9 00 38 FD 08 0958- 00 OF 90 04 OF A9 6F ED 0A18- 60 A0 04 20 DF 09 4C F0 
08A40- OF 90 08 0f 8E 11 Of 20 0960- 01 Of 8D 05 OF AD 02 0F 0A20- F6 


Vos textes en direct de votre ordinateur 
à nos photocomposeuses 


G d in de te M p S et Ë C 0 n 0 M | e Les textes de vos articles, catalogues, 


annuaires oU brochures saisis sur 
votre micro-ordinateur sont envoyés 


ER directement sur notre 
To photocompeuse. 
; Nous vous évitons ainsi, 


le coût et te temps de la saisie 
supplémentaire que 


nécessite le traitement 
traditionnel de la photocomposition 
avant l'impression des documents. 


Si vous le désirez nous pouvons 
également nous charger 
de l'impression et du brochage. 
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Le fichier système”, situé sur une 
disquette d'amorçage, comporte qua- 
tre icônes fréquemment utilisés pour 
accompagner les messages d'erreur. 
Voici une petite routine en langage 
machine, qui autorise la récupération 
de ces icônes depuis un programme 
Basic. 


Utilisation de la routine 


Le code objet doit, comme à l'accou- 
tumée, être placé dans un tableau de 


variables. Ensuite, il faut prévoir un 
tableau de 66 variables entières pour 
la définition de l'icône à récupérer 
(un icône est constitué de 32 lignes 
de 32 pixels; il faut donc 64 mots de 
16 bits pour la définition, plus les 
deux mot indiquant la taille, puisque 
l'icône sera affiché avec linstruction 
PUT). Pour le passage des paramè- 
tres depuis le Basic vers la routine, il 
faut utiliser : 


CALL  ADR!{ID%,VARFTR(T%(0))) 


19° PROGRAMME DE DEMONSTRATION 


29° 


39 CLS:DEFINT A-Z:DIM C(18),T(65) 


4 


59 ‘ Code objet à implanter en mémoire 


69 


79 DATA &h4E56,8,&h42A7,&h3F2E,8&hC,&NhA9BB 
89 DATA &h2957,&h2258,&h246E,&h8,&h24FC,32 
99 DATA 32,8&H791F,&H24D9,8&H5 1C8,&HFFFC 


199 DATA &H4ESE,&H4E 75 
119° 


129 ‘ identificateurs des icônes 


139” 
149 DATA 9,1,2,-6947 
159 


169° Implantation du code objet en mémoire 


179" 


189 FOR |=9 TO 18:READ C(}:NEXT 


199 D-9:60SUB 1 79 
299 RESTORE 89 

219 D=198:GOSUB 1! 79 
229 GOTO :58 


239 Sp. chargement et/ou affichage des icônes 
249 FOR P=59 TO 289 STEP SS:READ ID 
259 Ai=VARPTR(C(S)):CALL A!(ID,VARPTR(T(@))) 


Récupérez les icônes du système 


Marianne Sutz 


avec la première version du Basic 
Microsoft; 

ADR! ID%,VARPTR(T%(0)) avec la 
version actuelie. 

ADR! représente l'adresse de la rou- 
tine. 

ID% représente l'identificateur de 
l'icône (-6047, 0, 1 ou 2) 
VARPTR(T%(0)) passe à la routine 
l'adresse de base du tableau de va- 
riables destiné à recevoir l'icône. 





1D=-6047 








269 PUT(P+D,P),T:NEXT 

270 RETURN ab Son das date ce 
2000 ; Cette routine charge un icône appartenant eu "fichier système” (ressource}en 
0000 ; mémoire (si ce n'est déjà fait) st transfère sa définition depuis la zone de 

2000 ; mémoire choisie par le système vers un tableau de variables. 
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RE 


tes onbg 5 
té hits be 


DIV eue ls 
bi dima ke 


3 


ER. 


35 























Trep _Geticon $A9BB 


ÆS6 0000 LINK. A6, 
42A7 CLRL SP) 

3F2E DOC MOVE  12(A6).-(SP) 
A9BB -Geticon 

2857 MOVEAL (SP).AG 
2258 MOVEAL (AD)A1 
246€ 0008 MOVEAL B(A6)A2 


24FC 00206029 MOVEL  °$00209029.(A2)+ 


791F MOVEQ  *31,D9 
24D9 Boucle MOVEL  (A1)+,(A2)+ 
51C8 FFFC DBRA D8,Boucle 
SE UNLK A6 

#75 RTS 





Poscal fAissembleur initiotion 


Informations. 


: Réserve 4 octets au sommet de la plie. 
; L'adresse du pointeur sur 1a définition 
; de l'icône sera retournée à cet endrolt. 
: L'indentifieur de l'icône, passé depuis 

: le programme Basic, est empilé (2 

;: octets). 

: Chargement en mémoire de la définition 
; de l'icône et retour de l'adresse du 

; pointeur à l'emplacement réservé 

; précédemment. 

; L'adresse du pointeur est placée dans 

: le registre d'adresse AG. 

: Le registre AG contient l'adresse où se 
; trouve l'adresse du premier des octets 
; formant la définition de l'icône 

: (indirection). Après cette instruction, 
; l'adresse du premier octet se trouve 

: dans le registre d'adresse A1. 

: L'adresse de base du tableau de 66 

; varisbles entières est placée dans A2. 
: Les deux premiers éléments du tableau 
: de variables sont initialisés à 32 ($29) 


; car les icônes font 32*32 pixels. Ceci 


: permet l'utilisation de l'instruction 


: PUT dès le retour au programrne Basic. 
: 128 octets, soit 32 mots de 32 bits 


; sont nécessaires à la représentation 
; d'un icône. Le compteur de boucle DS 
; est inltialisé à 31 (ls sortie de boucle 
; 8 lieu lorsque DD est égal à -1). 


Sur la disquette Macintosh 
numéro 15/16 


vous trouverez les progranwnes Basic 
“Editeur”, “Mac/ Appieil!”, “Paint 
Basic”, "Paint/Start”', et d'autres 
programmes “exemples” employés 
pour l'illustration des articles publiés 
dans tesnuméros1S et 16 de Pom's. 
Les polices de Caractères ‘Los 
angeles” 24 ef 12 points, “CAIRO”, 
"Mos Elstey” 24 ef 12 points, 
“Holtywood' et "Manhattan. 


Les programmes : 





La GeEULE FHaNEC0phONE |  LOCAUIZER : configuration du 


desS'UtiliSateuGs au 


MBLClAtOosin 





clavier AZERTY pour la France (ou un 
autre pays). 

e Copie de disque : pour effectuer 
des copies de disquettes avec un seul 
lecteur sur un Macintosh 128Ko, en 
seulement quatre passages. 

15000 FE TTC franco 

(bon de commande Page 78) 
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Dans le précédent numéro de Pom's, 
nous vous proposions un programme 
permettant d'afficher ou de lister les 
informations sur les fichiers. Nous 
avons pensé qu'il pourrait être inté- 
ressant de pouvoir manipuler directe- 
ment ces informations; c'est l'objet 
de ce programme. On ne peut bien 
sûr pas tout modifier, puisqu'il serait 
dangeureux de toucher aux indica- 
tions sur la position physique ou logi- 
que des fichiers, mais ce programme 
autorise la modification du nom, du 
type, du nom de créateur ainsi que 
de divers paramètres liés à l'appa- 
rence et à la position de l'icône re- 
présentant le fichier. 


Mode d’emploi 


Ce programme fonctionne avec la 
version 2 du Basic Microsoft, et avec 
toutes les configurations (Macintosh 
128 et 512Ko, avec ou sans lecteur 
de disquettes externe). Toutefois, 
avec un Mac 128K0, il est préférable 
de ne pas entrer les REMarques; ceci 
autorise une vitesse d'exécution ac- 
crue (le programme situé sur la dis- 
quette Mac numéro 18 ne comporte 
pas de remarques). Pour ceux d'’en- 
tre-vous qui ne disposent pas encore 
de la nouvelle version du Basic, si- 
gnalons que les routines en langages 
machine fonctionnent aussi avec l'an- 


Modification des informations 


pour le ”Finder” 


cienne version; le programme est 
donc facilement adaptable. 


Modification du nom de fichier 


Un nom de fichier peut contenir jus- 
qu'à 63 caractères et, bien sûr, ne 
doit pas être de longueur nulle. 
Enfin, il ne peut pas comporter le ca- 
ractère >”, qui est utilisé par le sys- 
tème comme séparateur entre le 
nom du volume et le nom de fichier. 
Le programme intercepte toutes les 
erreurs possibles. D'une manière gé- 
nérale, il vaut mieux s'abstenir de 
modifier les noms des fichiers "’systè- 
mes”, afin de ne pas perturber le 
fonctionnement du système d'exploi- 
tation. Si cela devait arriver, il n'y 
aurait rien de grave puisque ce que 
fait le programme n’est pas irréversi- 
ble. 


Modification du type de fichier 


Le type de fichier est constitué de 
quatre caractères ASCII Si vous en- 
trez une chaîne comportant moins de 
quatre caractères, les emplacements 
laissés libres seront remplacés par un 
octet nul. Dans la zone de saisie, un 
octet nul est remplacé par un point 
afin de visualiser sa présence. 


Modification du nom de créateur 


Les remarques au sujet du type de 
fichier sont aussi valables ici. 1 


Fichier @[Microsoft BR$C 7] 


Type de fichier 


© Visible 

PA Bundie 

C Système 
Q Verrouitié 


© Bureau 
© Volume 
© Dossier 
© Corbelile 


Créateur du fichier 


Position de l'icône dans la 
fenêtre (en pixels) : 


Position horizontale @[-28 | 


Position verticale 
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Jean-Luc Bazanegue 


convient de signaler que le nom du 
créateur est utilisé par le Finder” 
pour déterminer le programme d'ap- 
plication à partir duquel est issu le fi- 
chier. Par exemple, un fichier de ca- 
ractères issu du ‘Font Mover” a, 
comme nom de créateur, *’FMOV”, 
Si l'on modifie cette chaîne, une ten- 
tative d'ouveiture du fichier provo- 
quera l'affichage du message "Il n’y 
a pas d'application pour ouviir ce 
document”. 


Position horizontale et verticale 
de l'icône 


Si l'icône du fichier se trouve sur le 
bureau, la position, en pixels, est re- 
lative à l'angle supérieur gauche de 
l'écran. Dans le cas où l'icône est 
situé dans la fenêtre d’un dossier (ou 
la fenêtre du volume), la position est 
relative à l’angle supérieur gauche de 
la fenêtre au moment de sa création. 


Paramètres divers 


ll est aussi possible de rendre un fi- 
chier invisible, de le placer sur le bu- 
reau alors qu'il se trouvait dans une 
fenêtre, etc... Nous ne nous éten- 
drons pas sur ces points, expliqués 
en détails dans le précédent numéro 
de Pom's. 


Pour reprendre la main. 


de AE est SIC TA lors 
e l'écriture o au point 
d'un progremme 

vous aviez 









a fait de 
car il n'est 


sible de les sauve- 
Eee Si ce 


res devait 








pour AE tout fete das le à [1] 


es 
a 


TETE" 


p&. 


ctturvilés 
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Routines utilisées par le programme Basic 
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GOEA 2642 
GGE6G  14DB 
S@E8 S51C9 


Q@EC 4E7S 


QGEE  4E56 
O0F2 AIFA 


OF6 2248 
O6 7913 
OGFA 4299 
OGC SICB 


O1 4SFA 
9194 2144 
9198 226F 


ütac 721A 


Pom's n° 18 


KXXX 
XXAX 


KXXX 


0008 


0001 


egai 
OBFFFFFF 


FFFC 


FFOC 


Trap  —GetVolinfo $A997  ; Rrolourne les informations sur le volume. 

Trap  .-ReNsme $AGgB  ; Change le nom du fichier et/ou du volume. 

Trap  -_ GetFilelnfo $AGGC  ; Retourne les informations sur le fichier. 

.Trap  _SetFilelnfo $A9GD  ; Modifie les informations sur le fichier. 

.Trap —'lount Vol $AG#Æ  ; Charge en mémoire les informations sur la disquette. 
.Trep  _Offline $ABSS  ; Libère le mémoire utilisée par le volume. 

rap _.DeletaMenu $A936 _: Annuleun menu (en mémoire). 

Trap  _DrawMenuBar $A937  ; Réaffiche la barre des menus. 


Tampon DCBL 28,6 ; Tampon de 86 octats pour les ent/sorties. 

Nom DCBL 16,9 ; Tempon de 64 octets pour le nom de volume ou le nom 
; ; de fichier. 

N.Nom  DC&L 16,9 ; Témpon de 64 octets pour le nouveau nom de fichier. 


Masque  EQU SOGFFFFFF : Constante pour adrasses sur 24 bits. 


; Sous-programme commun aux deux routines. Il est utilisé pour transférer les 
; caractères du nom de volume ou du nom de fichier depuis la programme Basic 
; vers le Lempon “Nom” où le Lempon N.Nom”. 

; Le premier segment (Sp.N.F) est utilisé uniquement pour les noms de fichier. 


Sp.NF  MOVEAL 8(A6).A1 ; L'adresse du descripteur de 1a chaîne, placée dans la 
; ; pile, est transférée dans A1. 
MOVEQ  °62,D1 ;: DT estutilisé comme compteur de boucles. 


SpNV MOVEB 1(A1)(A2)}+  ; Place le nombre de cær'actères formant le nom dans le 
: premier octet du tampon Nom ou NNom. 


MOVEL  1(A1),D2 ; L'adresse de la chaîne est placée dans D2. 

ANOIL  °Masque,D2  ; Supprime l'octet de poids fort pour obtenir une adresse 
; ; Valide sur 24 bits. 

MOVEAL D2,A3 : L'adresse obtenue est placée dans A3. 


TrNom MOVEB (A3}+.(A2)}+  ; Boucie de transfert de la chaîne. 

DBRA D1,TrNom ; Dt est décrémenté de 1 et comparé à -1. Si différent, 
: ; branchement sur “Tr.Nom”. 

RTS ; Retour à ls routine appelante. 


; Routine utilisée pour lire les Informations sur le volume et le fichier à traiter. 
; Pour le volume, seul le numéro de référence est retenu. Les informations 

; obtenues sont passées au programme Basic par l'intermédiaire du tampon 

: de 86 octets “Tampon” situé, pour le progremme Basic, dans les 48 premiers 
: éléments du tableau de variables entières TC. 


Linfo LINK A6.°0 
LEA Tampon.A@  ; L'adresse de base du tampon (correspondant à 
: ; VARPTR(TC(@)) ) est placée dans AG. 


MOVEAL AGAI ; Copie de AB dans A1. 
; Réinitislisation du tampon (mise à zéro). 

MOVEQ  *19,D8 ; DS est un compteur de boucles. On charge le valeur 19 
T.Zero CLRL (AIX : dans le compteur. Comme l'instruction DBRA provoque 


DERA D8,T.Zero ; une sortie ds la boucle lorsque le compteur est égai s 
; -1, on met à zéro 28 mots de 32 bits, soit 88 octets. 
LEA Nom,A2 ;: Place l'adresse du Lampon "Nom“ dans A2. 
MOVEL  A2.18(A9) ; Adresse du tampon “Nom” dans A+ 18 (voir Pom's 
‘ ; numéro 17,” Catalogue sur Imp."). 
MOVEAL 12(A6).A1 ; L'adresse du descripteur de 1a chaîne contenant le nom 
: ; du volume, placée dans la pile au moment du "CALL”, 


Ë ; est transférée dans le registre d'adresse A1. 
MOVEQ  #26,D1 ; Compteur de boucles pour le sous-programme Sp.N.V. 
É ; Un nom de volume contient au maximum 27 caractères. 
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G1& 61C6 BSRS Sp.N.V : Branchement vers le sous-prog. "Sp.N.V”. 

9119 5368 GOiC SU8& *1,28(A8) ;: Le mot de 16 bits situé à l'adresse A9+28, mis à zéro 
g114 L : par la boucle T.Zero, est décrémenté de 1 et devient 
g114 , : ainsi négatif. Cels indique à la routine _ Get Volinfo 
6114 : ; qu'elle doit utiliser le pointeur (A@+18) sur le nom 
g114 ; : de Fichier. 

9114 A997 Get Vollnfo 

9116 45FA FF38 LEA Nom,A2 ; On effectue les mêmes opérations que pour la routine 
GA 2144 6912 MOVEL A2,18(A9) : précédente mise à part l'adresse A@+28 qui est remise 
Q1E 6189 8SRS Sp.N.F ; à zéro pour indiquer à la routine _GetFilelnfo qu'elle 
9129 4268 GOiC CLR 28(A8) ; doit utiliser, pour déterminer le volume, le numéro de 
9124 AGYC _GetFilelnfo : référence placé dans A@+22 par _GetVolinfo. 

9126 4ESE UNEK A6 : Retour au 

9128 4E7S RTS ; programme Basic. 

g12A 

912A : Routine pour modifier les informations utilisées par le “Finder” et 

g12A ; modifier le nom de fichler. 

gt2A 

G12A 4E56 0069 Elnfo  EINK A6,°6 ; Passage du nom de fichier inltiel aux routines système. 
G12E AIFA FEDY LEA Tampon,Ag : La méthode utilisée est la même que pour les routines 
9132 ASFA FFIC LEA Nom,A | ; précédentes. 

G136 2149 912 MOVEL  A1,18(A0) 

G13A AGOD .-SetFllelnfo : Modification des Informations. 

G13C ASFA FFS2 LEA NNom,A2 : On passe maintenant le nouveau nom du fichier. Un 
8149 2144 G9IC MOVEL  A2,28(A9) ; pointeur sur ce nouveau nom doit se trouver dans 
8144 618A 8SRS Sp.N.F : Fadresse AD+286. 

0146 AG -ReName 

6148 AG3SS —OFfLine ; On vide la mémoire des informations sur le volume, 
O14A 363C 0991 MOVE +1,D3 ; puis on les recharge avec la routine système 

O14E 3143 6916 Er.Drive MOVE D3,22(A8) ; HMountVol. Ceci permet d'avoir toujours en mémoire 
9152 AGCF Mount Vol ; des Informations à jour’. La routine _ Mount Vol utilise 
0154 363C 602 MOVE +2,03 : le numéro du drive: pour déterminer ce numéro, on 
0158 3828 919 MOVE 16(A8),D4 ; utilise le code d'erreur retourné dans A+ 16. On essai 
915C 66F9 &8NE.S Er Drive ; d'abord sur le drive 1: si un code d'erreur est 

G15E  4ESE ÜUNLK A6 ; retourné (A@+16<>G), on recommence sur le drive 2. 
9169 4E75 RTS 

9162 

9162 : Routine pour supprimer certains menus (voir Pom's numéro 17). 

9162 

6162 ÆE56 0069 EMenu LINK A6,°6 

9166 9F2E 0066 MOVE 8(A6),-(5P) 

GI6A A936 .DeletelMenu 

G16C A937 .DrawMenuBar 

G16E  4ESE UNLK A6 

9179 4E75 RTS 
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Catalogue sur imprimante 

Pour obtenir toutes les Informations sur les 
fichiers 1{tyDe, créateur. Index position du 
premier bloc pour la partie Uuvées”, position 
du Premier bloc pour ls partie Messource”, 
one srs logiques ét  piysiqes,. fichiers 
protégés où non icônes irisibles, etc. ] sur 
papier ou à l'écran. 

Routines "BLOAD° et ‘BSAVE” 

Similaires aux routines BLOAC et BSAVE" de 
l'Apple //, elles autorisent des sav eogsdes et 
chargements rapides de fichiers binaires 
(données  orapñiques, tableaux de ‘Variables, 
tables de références. etc. l 
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Le Basic Microsoft offre la possibilité 
de redéfinir la fonne du curseur en 
plaçant des codes dans un tableau 
de variables. Ceci est très intéressant 
mais, s’il on se penche quelques mi- 
nutes sur le problème, on s'aperçoit 
qu'il est possible d'utiliser cinq cur- 
seurs prédéfinis. Les quatre premiers 
font partie du dossier système alors 
que le dernier est issu du Basic Mïi- 
crosoft. 


Les curseurs du système 


curseur désiré On utilise deux 
"Traps”, le premier charge en mé- 
moire la définition du curseur (cur- 
seur, masque et position du ‘point 
chaud”) et retourne l'adresse où se 
trouve le pointeur sur la structure en 


Julien Thomas 


Le passage de l'identificateur (nu- 
méro du curseur) se fait comme 
d'habitude par ta pile, avec CALL 
ROUTINE!(ID%) (ou ROUTINE! 
ID% avec la seconde version du 
Basic Microsoft). 


Une très couite routine est utilisée question, la seconde est l'équivalent Æ 
pour le chargement et l'affichage du de l'instruction CALL SETCURSOR. 

Curseur Masque 
10' PROGRAMME DE DEMONSTRATION au ai 
20 DEFINT A-Z:CLS E 
30‘ Data pour code objet - [2 | ue 
40 DATA &H4E56,0,&h42A7,&h3F2E,8 LES = 
50 DATA &hA9B9,&h2057,&h2E90 de au an 
60 DATA &HA8S 1 ,&HA4ESE,&H4E 75 : 
70 FOR N=0 TO 10READ C(N):NEXT cunssnnl anne MS 
80 AI=VARPTR(C(O)) à à gl 
90 INPUT “Numéro du curseur ? ”,N 5 E 
100 CALL SHOWCURSOR GUUELLE | 
110 CALL AIN):GOTO 90 H 












0600 ; Récuperation des curseurs prédefinis. LH 
0000 
0600 rap _GetCursor  $A9B9 veuves ; 
DO rap .SetCursor $AGSI EE H 
Lu Y 1 2 à 
0000 4E56 0000 LINK A6,°9 CE ee FE 
6004 42A7 CERL SP) - =" + 
0006 3F2E GO06 MOVE B(A6).-(SP) EE E 
GGJA A989 __GetCursor 
009C 2957 MOVEAL (SP),AG 
OO. 2E90 MOVEL (AS),(SP) abs 
6918 ABS] .SetCursor HSE 
0912 4ESE UNLK A6 cuess 
O014 4E75 RTS "E 

LL] 
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Cette nouvelle disquette comporte le nouveau fichier “système” 
ainsi que la version 4.1 du “Finder”, beaucoup plus rapide et 
complète que la précédente. Le programme “System update” 
autorise l'implantation des nouveaux “Finder” et “système” sur vos 
anciennes disquettes. "BR DEMO” est un programme d'application qui 
permet l'affichage temporisé d'écrans créés avec la séquence de 
touches “Commande-Shift-Ma juscule-3". “Font/DA4 Mover” est une 
version neffemenf améliorée de “Font Mover”. De plus, it permet de 
manipuler les accessoires de bureau. Enfin, outre les programmes 
publiés dans ce numéro, vous trouverez les polices de caractères de 
l'imprimante Laser Writer “Times”, “Courtier”, “Symbol” et 
“Helvetica” (utilisables avec l'imprimante ImageWriter). 
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Logiciels de troisième génération 



















Gestion de fichiers sur Mac Disquette N°18 


du cahier Macintosh 















La première génération des logiciels sur Mac &ait 


Sans le moindre souci d'exhaustivité, nous 
conçue pour 128K de mémoire. 


faisons ici le point sur les logiciels permettant 
de faire de la gestion de fichiers sur Macintosh, 
même s'ils possèdent parfois des possibilités 
supplémentaires. Lire la rubrique des Micro- 
Informau'ons pour les informations générales 
en matière de logiciels sur Apple. 











La disquette Macintosh de ce numéro de 
Pom's comporte tous les programmes parus 
dans le cahier Mac, mais elle vous réserve en 
outre des cadeaux surprise : 











La seconde génération, née avec le Finder 1.1g, 
était destinée aux utilisateurs de Macs 512K, mème 
si ce Finder fonctionnait en 128K. Certains pro- 
grammes de cette génération exigent 512K de 
mémoire centrale, d'autres, à l'instar de Thiak Tank, 
ont une version 512K plus puissante. 

























-le System Update, qui transforme vos 
vieux fichiers Système en remplaçant le 
Finder 1.1g par la version 4.1 et l'ancien 
ficher ImageWriter par le nouveau. 

«le Font/DA Mover, pour déplacer des 
polices (fonts) ou des accessoires de bureau 
d'une disquette à une autre. Les polices 
peuvent provenir d'un système où d'un fichier 
quelconque. Un excellent programme, valori- 
sé par le nombre croissant d'accessoires de 
bureau qui traloent partout aujourd'hui. 

+ le programme Demn, dû à Bruno Rives, 
qui vous permet de monter une séance de 
présentation avec plusieurs écrans. 

- les quatre polices de caractères utilisés à cc 
jour par la Laser Writer. 



















Héllx est un programme de base de données 
relationnelle fonctionnant exclusivement avec 
SI2K. Nous avons été impressionnés par ses 
possibilités, qui se payent quand même par un 
certain effort d'apprentissage. Ce programme 
puissant sera évoqué plus en détail dans un 
Pou's ultérieur. 11 est vendu par Softsel - Té] 
(1} 768.59.50 au prix de 4.763 FF HT. 













La troisième génération vient d'arriver, avec le 
Finder 4.1, la version 45 de MacWrite et la 
version 1.5 de MacPaint. Le nouveau système, 
outre ie Finder 4.1 dont nous parlons plus bas, 
ajoute l'accessoire Sélection d'imprimante, met à 
jour le fichier System et remplace le fichier 
ImageWriter par une nouvelle version autorisant 
l'impress'on à 50% de réduction et fonctionnant sur 
les ImageWriter 12” et 15". 




















CX MacBase, avec sa version M20, résoud 
la grande majorité des bugs emore présents 
dans la version M10. Contacter votre revendeur 
ou la société Controle X pour la version M20. 










Le nouveau Finder 


















Qu'apporte de plus le nouveau Finder ? En résumé : 

+ Ja possibilité d'imprimer le catalogue de la dis- 
quette; 

- l'affichage d'un cadenas pour les fichiers verrouil- 
lés, avec les catalogues sous forme de texte; 

+ la possibilité de copier des fichiers sur un disque 
ouvert; 

- la possibilité de mettre un disque dans la poubelle 
(éjection et disparition de l'icône du disque}; 

+ une option du menu Fichier pour la création d'un 
nouveau dossier: 

-un Minl.-Finder, dans le menu Spécial, permet 

de se déplacer rapidement entre des programmes et 

documents d'usage fréquent. 


De son côté, ABC Base est maintenant lui 
aussi disponible dans sa nouvelle version, où 
les bugs antérieurs sont aussi en grande partie 
résolus. De plus, la documentau'on est sensi- 
blement améliorée. 














Pour transformer toutes vos disquettes 
comportant l'ancien système, il suffit de 
cliquer sur l'icône System Update. 





























Eofin, depuis le temps qu'on l'attendait, File 
est maintenant vendu par Microsoft. Nous 
devons souligncr sa grande facilité d'usage, sa 
rapidité de traitement, son absence apparente 
de bugs, et son parfait fonctionnement en 
128K. En échange de quoi, ses foncéonnalités 
sont certes moins riches que celles des 
précédents : ainsi, les possibilités de calcul 
sont tout.à-fait sommaires, et il n'est pas 
question de réaliser des traitements reliant entre 
eux deux fichiers ou plus. On peut réahser des 
fiches présentant joliment, mais au prix de 
certaines manipulations. 








AX 


System Update Font/DA Mover: 


























La mise à jour du système d'une disquette ne 
modifie en rien ses caractéristiques 
spécifiques telles que le clavier ou les 
polices qui y sont intégrées. Aucun risque 
donc … 














Et nous n'avons pas tout dit … Nous vous laissons 
découvrir le reste, y compris le gain en vitesse. 













Le seul effet négatif que nous ayons pu 
constater est que ies dossiers réalisés avec 
l'ancien système et relus par le nouveau 
perdaient leur nom. Par contre, leur structure 
de dossier et leur contenu restent inchangés, 
que le système ayant servi à les définir soit 
françats ou américain. 





Pom's recrute encore |! 















Nous attendons donc avec une grande impa- 
tience le futus intégré de Microsoft qui a tout de 
même réussi la performance notable en micro- 
informatique de placer la plupart de ses produits 
dans la série des bestsellers. 











Four faire face à sa croissance continue, 
Pom's recherche un collaborateur ou une 
callaboratrice à temps plein. 


Connaissance parfaite de l'assembleur, de 
l'Apple //, du DOS et du ProDOS requise. Il 
faut aimer le travail en équipe, être capable 
de s'exprimer clairement et avoir un niveau 
acceptable en orthographe. 










Les nouvelles versions de MacWrite et 
MacPaint se trouveront, pour leur paït, sur la 
disquette Macintosh du N°19 de Pom's. Nous 
profiterons certainement de l'occasion pour 
joindre encore à cette disquette d'autres 
nouveautés relevant du domaine public, en 
plus des programmes publiés dans Pom's. 


Page réalisée avec Ready-Set-Go, programme diffusé par BIP, et imprimée sur Laser Writer avec les polices Helvetica et Timee. 























En ce qui concerne Jazz, à la date de rédaction 
de cet article, on ne säit pas encore s'il ne 
faudra pas avoir, outre 512K, un disque dur pour 
pouvoir l'utiliser dans des conditions pour le 
moins acceptables. 
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Aldo Reset a la parole 


Pons 


Beaucoup a été dit sur les "pirateurs”, et Pom's a trouvé juste de leur donner la parole, afm qu'ils aient la possibilité de dire ce 
qu'ils pensent sans que leurs propos ne soient abusivement interprétés ou même, comme cela leur est déjà arrivé avec une 
revue spécialisée dans le choc des clichés, purement inventés. Nous avons donc rencontré Marc, plus connu sous le nom de 


Aldo Reset, membre fondateur du Clean Crack Band. Quel est le possesseur d'un Apple IT Plus, //e ou //c qui n'a eu entre les 


mains des disquettes signées du Clean Crack Band, ou de ses membres les plus éminents : Aldo Reset, Tony NM, Laurent 
Rueil ou Johnny Disquette ? 





La première impression que donne Mare, 
appelons-le plutôt Aldo pour respecter son nom 
de guerre, c'est sa jeunesse. Il compte 20 
printemps et, quand on sait qu'il œuvre sur son 
Apple Il+ depuis plusieurs années déjà, on voit 
qu'il a démarré tôt. 


NDUR : Pom's n'a pas pu retranscrire l'interview 
in extenso, la discussion ayant duré plus d'une 
heure et demie. Nous avons donc extrait des 
questions et réponses Iÿpiques, avec un grand 
souci de ne pas dénaturer les propos échangés. 


P - Le piratage qui a déjà eu lieu vous pose-t-il un 
problème, légalement ? 


A - Je ne vois pas très bien qui m'en voudrait … 


P - Dans la mesure où vous avez déjà signé un 
certain nombre de disquettes Apple I1, les éditeurs 
ne peuvent-ils vous ennuyer ? 


A - Les éditeurs américains ? À mon avis, ils 
feraient déjà quelque chose contre ceux qui 
existent aux Etats-Unis, avant de venir nous 
embêter. Les éditeurs français, sañs vouloir être 
méchant pour eux, disons qu'ils n’ont pas le 
même niveau. 


P - Comment signez-vous les disquettes que vous 
“déplombez" ? 


A - Avant, je signais Aldo Reset ou CCB; 
maintenant, je ne fais plus grand chose. CCB est 
ua groupe; On a toujours été plusieurs dedans. On 
a commencé, on était au départ vraiment deux, 
Tony NM et puis moi. Ensuite, Laurent Rueil 
qu'on a renconké. Au fur et à mesure, on mettait 
tous les copains dedans. Ça fait toujours plaisir 
de faire partie de quelque chose. 


Alors, on s'est reirouvé, on a bien été une 
quinzaine, pendant un moment. Et puis, l'année 
dernière, ça n'allait plus. je n'arrivais plus à 
savoir Qu était du CCB; j'entendais parler d'untel 
qui était du CCB et que je ne connaissais même 
pas. Alors on a fait un pet. nettoyage. On s'est 
retrouvé à cinq. C'est à peu près l'époque où on a 
laissé tomber, de toute façon. 


P- Vous ne déplombez plus ? 


A - Non, pas vraiment. De temps en temps, 
parce que d'abord ça nous plait C'est surtout ça. 


P - Est-ce que cela a été une industrie à un 
moment donné ? 


A - Mettons que je faisais cela tous les jours. 
Pendant une bonne partie de la journée et de la 
auit. Cinq par jour pendant un moment. 


P - Cela a-t-il été une activité commerciale ? 


A - On n'a jamais gagné d'argeut. On n'est 
jamais passé au stade industriel, c'est-à-dire 
déplomber des trucs exprès. C'était pour l'amour 
de l'an, et surtout pour avoir les programmes. 
S'il fallait acheter tous les trucs qui sortent, moi 
je pourrais travailler encore peudant dix. ans, je 
ne poyrrais pas les avoir. Ça coûte quand même 
cher, et puis c'était un moyen facile et agréable. 
On n'allait pas se gêner. 


P - Y a-t-il d’autres groupes que le Clean Crack 
Band ? 


A - !l y en a plein. Ça a réellement commencé 
l'année dernière. 11 y a plein de monde. 
Maintenant, cela ne vaut plus tellement la 
peine. A la limite, Ça ne me dérangerait pas de 
continuer, mais ça prend du temps, et ça ne 


rapporte pas. 
P - Comment déplombe-t-on ? 


A - 11 y'a plusieurs méthodes pour déplombez. 11 
y a la méthode sale, qui est malheureusement 
trop répandue, avec les cartes d'interruption, les 
choses comme cela. Non setlement, ça ne 
œarche pas toujours, mais c'est rien, c'est même 
pas drôle. Moi, j'ai une carte comme Ça; je m'en 
sers, mais pas pour déplomber. je m'en sers 
quand je suis en train de jouer, quand je veux. 
absolument voir la fin du jeu; dès que je me fais 
tuer, je reviens au stade précédent avec ce Que 
j'ai sauvé de la carie. 


Dans la méthode propre, il faut suivre tout, 
depuis le début, à la main, sans rien du tout 
en hard, juste à la ruse. On suit pas à pas. Si 
on veut faire quelque chose de bien, il faut 
aller jusqu'au bout, suivre et bien comprendre 
ce qui se passe, Mais quand en veut ensuite 
fawe (de la disquette déplombée) quelque 
chose de standard, il faut aussi faire 
proprement. 


P - Est-ce que, pour un système comme 
ProLock, vous avez un mode de déplombage 
systématique, ou est-ce que ce travail est 
personnalisé ? 


A - ProLock, c'est mème pas la peine de 
s'énerver avec ça. C'est teïlement ridicule que 
{rires). 


P - Il paraît que certains pirates déclarent 
pouvoir déplomber n'importe quel logiciel en 
une demi-heure, montre en main. Est.ce vrai ? 


A - C'est des bêtises. Une demi-heure, ce 
n'est pas standard. [1 y a 90% des machins 
qui sont faisables en cinq minutes. Faut le 
dire. Maintenant, dans les 10% restant, il y 
en à qui prennent deux heures, d'autres plus. 
Omnis 3, jai passé une semaine dessus, à 
bosser nuit et jour, je ne dis pas ça Pour être 
vache avec Ka, mais c'était bien. C'est pas 
que la pro&æction était une des meilleures, 
maïs elle était hors du commun, différente de 
tout cœ qui se faisait Sun Dog, c'est encore 
ua bon exemple; une semaine aussi. Une 
semaine, ç8 a été le maximum. Pas du matin 
au soir, mais en y pensant tout le temps, la 
ouit aussi. Sun Dog et Omnis 3, c'était très 
dur, mais on pouvait faire plus dur eucore; ils 
auraient pu rajouter des wucs. Ils se sont dit 
"C'est pas la peine”; à mon avis, ils avaient 
raison. 


P - Peut-on faire un programme qu'on ne 
puisse pas déplomber ? 


A - Pas possible … on passera le temps qu'il 
faudra, mais on l'aura. 


Cette interview a aussi été réalisée avec Ready-Set-Go et l'imprimante Laser Writer - On peut aussi utiliser pour cela tes programmes … 
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P - Vous travaillez aussi sur le Macintosh ? 


A - Pas vraiment, je commence un peu. Le 
68000, c'est pas mal, mais le Macintosh, il 
traîne un peu, je trouve. Je m'attendais à 
mieux. Tant quil n'y aura pas une vitesse plus 
rapide … A 10 MHz, on peut commencer à 
travailler. Ceci dit, je commencerais à 
tavailler dessus si on m'en donnait un. Je ne 
peux pas encore en acheter un maintenant. 


P - Les protections semblent meilleures sur le 
Macintosh. 


A - C'est normal. D'abord, il y a 128K ou 
S12K au lieu de 64K; fouiller dans 64K, à la 
limite, c'est faisable, Dans 128 ou 512, c'est 
plus dur. En plus, dans le 68000, il y a des 
registres À ne pas savoir où on en est. Moi, 
jaï encore rien déplombé sur Mac; un truc, 
quoi, mais c'était vraiment ridicule. 


Autre pirateur - Les grands spécialistes du 
piratage sur Macintosh, c'est du côté du soleil. 
On parle de Nice et Marseille. On n'est même 
pas sûr des villes. La raison fondamentale de 
ce piratage-là, c'est le chômage. 


P - Les protections d'ACI ne sont pas mal, 
n'est-ce pas ? 


A - Laurent Ribardière (créateur d'ABC Base, 
diffusé par ACT), c'est quelqu'un qui n'est pas 
négligeable. 


P - Que faisiez-vous au début du CCB ? 


A - Moi, j'étais au lycée. Laurent venait 
d'avoir eu son bac; Tony était aussi au lycée. 
On faisait ça pour s'amuser. Moi, je suis 
toujours étudiant, je fais des études en 
biologie. Les autres, il y en a qui travaillent, à 
écrire des logiciels pour des boîtes connues. 


Autre pirateur - Ajdo et un certain #ombre 
d'autres pirateurs du CCB travailient 
maintenant, sous des formes variées, avec la 
société IRD, qui part du principe que les bons 
pirateurs sont de bons programmeurs. 


À - À partir du moment où on déplombe bien, 
où sait programmer bien. Si on dépiombe mal, 
on ne sait pas programmer. 


Il y a ceux qui savent suivre un programme, 
regarder une routine en langage machine, 
comprendre ce qu'elle fait, programmer ce qu'il 
faut pour qu'elle fasse la même chose, mais en 
DOS 3.3 normal. 


ll y a les autres qui mettent quinze fois plus de 
temps à comprendre, qui s& trompent quinze 
fois de suite et font des irucs qui ont l'air 
dégueulasses à l'écran. Des bouts de machins 
qui taïnent dans tous les coins. 


Nous, quand on signe, on essaye de faire ça 
discrètement, pour rien enlever à la façon dont 
lies gens auraient voulu que ce soit présenté 
originellement. Moi, quand je vois une page 
qui arrive, et où on ne voit plus ce que c'est, 
parce qu'un abruti a mis son nom en plein 
miüieu et en gros, et qu'en plus les couleurs 
bavent, ça me plaït pas, et je suis sûr que ce 
type-ià ne sait pas programmer. C'est une 
insult£ aux gens qui ont fait le programme au 
départ. 


P - En fait, vous voulez dire que vous avez un 
certain respect pour les auteurs de programmes. 


A - Ceia paraît bizarre, mais c'est vrai. Os s'est 
appelé Cleau Crack Band parce qu'on essaye, à 
chaque fois, de faire du beau travail. Tous les 
programmes qu'on a déplombés et qui portent 
notre signautre quelque part, c'est bien fait, ça 
marche à la même vitesse ou plus rapidement 
que l'original, ça conserve l'esprit du logiciel. 
C'est bien fait, quoi. C'est discret, et bien. 


P - Vous êtes en quelque sorte des esthètes. 


À - On peut dire ça. On peut, on peut … Ça fait 
un peu prétentieux, mais (rires). Mais c'est 
vrai, je vois ça comme ça. C'est pour cela que 
ça me met hors de moi quand je vois des gens 
qui ne le font pas. 


La majorité des gens qui écrivent des 
protections pour les logiciels font des trucs 
bien; je ne parie pas de ceux où il faut cinq 
minutes pour déplomber, quoique ce n'est pas 
une raison pour les massacrer. Prenons par 
exemple Bill Bashan, qui a fait Dogfight et Ia 
protection de tous îes IDSI (Point 5, Trick 
Shot), c'est un type que j'admire vraiment 
Quand on regarde une page prise n'importe où 
dans un lisäng qu'il a écrit, on reconnaît tout 
de suite que c'est lui qui l'a fait. Il a une espèce 
de style. 


P - En général, c'est la même personne qui crée 
les logiciels et réalise Ia protection ? 


Autre pirateur - Non, mais celui qui fait la 
protection intercale son code dans celui de 
l'auteur. 


P - Mais, alors, comment reconvaïit-on le code 
original du code de protection ? 


A - C'est ça qui le tahit Pour déplomber un 
truc, souvent, je commence comme 
uormalemeunt, puis ensuite je regarde dans la 
mémoire le- zones où je pense qu'il pourrait y 
avoir quelque chose. Je regarde au hasard. Et 
souvent, je tombe sur un endroit où je me dis 
"Tiens, ça, ce n'est pas écrit comme le reste”; 
il y a alors de fortes chances pour que la 
protection, ce soit ce truc-là. 


Y'a des gens qui utiliseat plus certains registres que 
d'autres. Ce sont des trucs comme ça C'est subt1, et 
c'est bien. 


Autre ptrateur - À ce niveau-là, quelqu'un comme 
Atdo - surtout lui, parce que c'est un des meilleurs 
dans le genre - reconnaît le style d'un auteur de 
logiciel comme on reconnaît celui d'un écrivain. 
Signe distinctf très caractéristique à mon avis, Aldo 
n'utilise pratiquement pas d'assembleur, il travaille 
directement avec les codes mnémoniques, er hexa 
directement. 


P - Savez-vous ainsi identifier plusieurs "protecteurs" 
américains ? 


A - J'en connais plusieurs. Îl y a toujours dans un 
coin le nom de celui qui a fait la protection; on ne 
peut pas y échapper. C'est pas forcément leur nom en 
clair; i y en a qui mettent leurs nombres favoris, des 
tœucs comme ça. On les retrouve. Quand je vois dans 
Dogfight, à un moment dans le programme, il y a 
deux/trois machins, et puis ensuite, je rewouve les 
mêmes codes dans une protection, et ptus tard je 
rerouve que c'est le même type {à cause de cette 
signature) dans d'autres logiciels. Il suffit de faire 
attention aux bons trucs. 


Moi, j'ai arrêté de déplomber aussi parce qu'une de 
mes raisons, c'était de récupérer tous les softs qui 
sortaient, pour être au courant. Maintenant, j'anive à 
tout avoir par les amis, mal déplombé, on n'y peut 
rien, mais je les ai quand même. C'est quand même 
triste de voir que c'est mal fait … C'est dommage. 


P - Quel genre de bétises a-t-on dit sur vous ? 


Autre pirateur - D'après Paris-Match, Aldo aurait 
travaillé sur le fichier d'une banque. Or, il ue fait pas 
du tout de communication, il a horreur de cela. C'est 
Tony qui est “branché”. 


A - J'aurais piraté le Crédit Agricoie par Minitel. 
Faut quand même pas exagérer. J'ai fait d'autres 
choses. Ceci dit, les auteurs de logiciels, j'en 
connais peu qui ne puratent pas. Si un auteur veut 
faire un bon logiciel, il faut qu'il voie ce que font 
tous les concurrents. 


P - Une morale à tout cela ? 


A - C'est pas forcément use mauvaise chose que les 
logiciels se diffusent par piratage. Que es 
programmes circulent permet d'amener plus de gens à 
un certain niveau, de voir ce qu'est un bon 
progfamme, ça aide à mon avis la micro-informatique 
et l'infermatique en général; et ça, je trouve que c'est 
uue bonne chose. Les avis sont partagés là-dessus. 
Enfin comme les programmes circulent de toute façon 
déplombés, il vaut mieux qu'ils circulent déplombés 
de façon propre que sale. Mal déplombé, cela peut 
donner l'impression que ie programme marche mal, 
cela fait du tort. C'est pour cela que les gens qui 
déplombent pas bien, ils font du mal doublement. Le 
bon dépiombage fait progresser l'informatique. 





… MacPublisher, Page Maker (non encore disponible) et, pourquoi pas, tout simpiement le génial Mac Draw, encore trop méconnu … 
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Hard copy de la page HGR étendue 


Cet article s'adresse uniquement aux 
propriétaires d'un Apple //e, équipé 
d'une carte 80 colonnes étendue, ou 
d'un Apple //c (la carte Chat Mauve 
est intégrée en standard). Vous savez 
certainement que ces cartes addition- 
nelles améliorent non seulement l'af- 
fichage en mode TEXT de l'Apple, 
mais aussi ses capacités graphiques 
(jusqu’à 560 x 192 point), en per- 
mettant l’utilisation des pages haute 
résolution de 16 Ko, d’où une meil- 
leure qualité des graphismes obtenus. 
Il était jusqu'à présent possible de 
créer et de sauvegarder des graphis- 
mes i6 Ko à l’aide d'utilitaires très 
puissants tels que Puplesoft, ou à 
partir du Basic (voir suite de l’article), 
mais pas d’en obtenir une reproduc- 
tion sur papier. Le programme en 
langage machine proposé ici, associé 
au programme Basic COPIE comble 
cette lacune, la qualité de la repro- 
duction obtenue n'étant toutefois op- 
timale que lors de la recopie d'une 
image 560 x 192 en noir et blanc. 


Commutateurs mémoire 
et graphismes 16 Ko 


Les modes graphiques 16 Ko page 1 
des caites 80 colonnes étendues utili- 
sent les 8 Ko de la page graphique 
haute résolution 1 et 8 Ko de la mé- 
moire auxiliaire situés aux mêmes 
adresses. Leur utilisation suppose 
donc lecture et écriture dans les 64 
Ko additionnels. 

L'écriture et la lecture de données 
dans la mémoire auxiliaire peut s'ef- 
fectuer de deux manières: soit en 
utilisant la routine AUXMOVE (voir 
Manuel de référence //e ou de la 
carte 80 colonnes), soit en jonglant 


avec les commutateurs mémoire 
80STORE, PAGE etc. 

C'est cette deuxième méthode 
qu'utilise le programme de hard 


copie. Afin de permettre son emploi 
à parti d'un programme Basic, 
seules les deux zones mémoire cor- 
respondant aux pages TEXTI et 
HGRI1 sont commutées. 


Ceux qui ont déjà essayé d'utiliser 
les 64 Ko de la mémoire auxiliaire 
sans passer par AUXMOVE 5e sont 
certainement rendu compte de la 
complexité du problème, et ont pu 
constater que la séquence CTRL- 
Pomme Ouverte-RESET est parfois 
incapable de remettre de l’ordre dans 
tous les pointeurs. En Basic, cette 
mémoire additionnelle n'est absolu- 
ment pas utilisable directement et ne 
peut l'être pleinement qu'en assem- 
bleur (l'Applesoft n'est malheureuse- 
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ment pas un Basic 128 Ko). Les 
commutations de pages mémoire ef- 
fectuées pour utiliser le mode HGR 
16 Ko sont les seules exploitables 
sans grand danger en Basic. Il suffit 
alors de protéger la page HGRI1 par 
un LOMEM ou un HIMEM approprié 
et de veiller à ce qu'aucun pointeur 
ne soit perdu lors d’une opération 
d'Entrée / Sortie. 


Attention: certaines interfaces impri- 
mante, telles que la SSC, utilisent les 
’trous” de la page TEXTI pour y 
loger des pointeurs. Il faut donc veil- 
ler, lors de l'envoi d'un caractère à 
l'imprimante par un PRINT ou un 
JSR COUT, à ce que la page TEXT1 
de la mémoire principale soit bien 
accessible (l’auteur de ces quelques 
lignes en a fait la triste expérience). 


Précisions sur 
les cartes 64 Ko 


Si vous avez essayé de comprendre 
l'effet des différents commutateurs 
mémoire vous avez pu constater que 
les explications fournies par les ma- 
nuels ne sont pas d’un abord facile; 
les quelques lignes qui suivent vous 


permettront certainement d'y voir 
plus clair : 
e Le commutateur mémoire 


80STORE a priorité sur RAMWRT 
et RAMRD, ce qui rend parfois 
AUXMOUE inutilisable. 

© Les commutateurs RAMWRT et 
RAMRD spécifient la Bank utilisée 
en lecture ou en écriture. 


Action des commutateurs 

1) Si ALTZP est OFF : 

Les commutations s'effectuent obli- 
gatoirement entre les pages 2 et $BF 
incluses, deux cas de figure sont 
alors possibles : 

— Si 80STORE est OFF, RAMWRT 
et RAMRD commutent entièrement 
de la page 2 à la page $BF. 

— Si 80STORE est ON, il est priori- 
taire par rapport à RAMWRT et 
RAMRD qui ne commutent plus, 
contrairement aux pages 2 à 4, 8 à 
$20 et $40 à $RF. Les pages TEXTI 
et HGR1 commutent alors indépen- 
damment des autres si HIRES est 
ON. PAGEZ2 effectue leur commuta- 
tion. 

2) Si ALTZP est ON: 

Les commutations affectent la carte 
langage, la page 0 et la page 1. Elles 
sont effectuées avec RAMWRT et 
RAMRD, les autres commutateurs 
devant être positionnés exactement 
comme l'indiquent les manuels. 


Marc Debuigne 


Attention : 


— Pour pouvoir encore afficher du 
texte à l'écran il est nécessaire que 
TEXTI ne soit pas commuté. 


— Après un appel d'une routine du 
moniteur, il faut faire très attention à 
la nouvelle position des commuta- 
teurs. 

— S'il est nécessaire de commuter la 
mémoire auxiliaire aussi bien en lec- 
ture qu’en éciture, il semble que 
seules les séquences RAMWRT ON 
et RAMRD ON, puis RAMRD OFF et 
RAMWRT OFF évitent les ”’planta- 
ges” 

— Les seules commutations possibles 
sont celles indiquées dans les ma- 
nuels, il faut alors s'assurer du bon 
positionnement de tous les commuta- 
teurs afin d'éviter un plantage”. 

— Après certains plantages”, la 
seule manière de tout remettre en 


ordre est d'éteindre et de rallumer 
UC. 


Dernières précisions : dans cer- 
tains cas la routine AUXMOVE ne 
peut être utilisée. Il existe deux 
commutateurs mémoire assez peu 
connus SLOTCXROM et 
SLOTC3ROM qui permettent d'accé- 
der aux ROM spécifiques du //e-/lc, 
ce qui oblige à effectuer une écriture 
en #C00A (49162) avant toute utili- 
sation de AUXMOVE. Etant donné 
que AUXMOVE n'utilise que 
RAMRD et RAMWRT, il faut que 
80STORE soit OFF pour qu’elle 
puisse accéder à toute la mémoire. 


Visualisation 
de la page 1 


Si vous avez un //e, la haute résolu- 

tion étendue ne peut être visualisée 

qu'avec des cartes mères révision B 

ou postérieures. Une seconde condi- 

tion doit être remplie : les deux Jum- 

pers des cartes d’origine Apple doi- 

vent être reliés (ce problème n'existe 

pas avec la carte Chat Mauve). Les 

commutations à effectuer sont : 

e AN3 OFF: $COSE - 49246 llec- 
ture) 

e GR ON: $C050 - 49232 (lecture) 

e HIRES ON: $C057 - 49239 (lec- 
ture) 

e FULL ON (ou MIXED): $CO52 - 
49234 (lecture) 

e 80COL ON: $CO0D - 
(écriture) 


49165 


Pour utiliser à nouveau la haute ré- 
solution normale il suffit que le 
commutateur AN3 soit ON (lire en 
$COSF - 49247). 


dé: 


49 


sys 
Ant t 


eue ram TTC 
A Lèrmss + 


SAGE 


ET 


50 


Ï existe aussi une page 2 en haute 
résolution 16 Ko. Pour la visualiser il 
faut également que 80STORE soit 
OFF. Cette deuxième page est diffici- 
lement utilisable, à moins d'écrire 
d’autres routines d'affichage en 80 
colonnes, car le firmware 80 colon- 
nes active toujours 80STORE. 


Création et sauvegarde 


Pour créer un graphisme haute réso- 
lution 16 Ko en Basic, sans risquer 
un plantage”, il faut activer les 
commutateurs suivants afin de ne 


.commuter que les pages TEXTI et 


HGRI : 

e 80STORE ON: $C001 - 49153 
(écriture : modifie l’action de 
PAGE2) 

e a ON : $C057 - 49239 (lec- 
ture 

e RAMWRT OFF : $C004 - 49156 
(écriture) 

e RAMRD OFF: $CO002 - 49154 
(écriture) 

e PAGE2 ON: $C055 - 49237 
(écriture : commute la mémoire 
auxiliä’re} ou PAGE2 OFF: 
$C054 - 49236 (écriture : 


commute la mémoire principale) 


Lorsque 80STORE est OFF, PAGE2 
commute l'affichage entre les pages 
TEXT et HGR 1 ou 2. Lorsque 
80STORE est ON, il permet de 
commuter soit la mémoire principale, 
soit la mémoire auxiliaire (pages 
TEXTI et HGR1). Pour afficher un 
point en Basic il faut déterminer s’il 
se trouve en mémoire principale ou 
auxiliarre, effectuer la commutation 
adéquate, modifier son abscisse en 


conséquence et utiliser le HPLOT de 
l'Applesoft (structure des pages haute 
résolution : voir manuels}. Pour sau- 
vegarder et réutiliser l’image obte- 
nue, la méthode la plus simple est 
d'utiliser les commandes BSAVE et 
BLOAD du DOS 33. Une image est 
enregistrée en deux parties : la pre- 
mière correspondant au contenu de 
la page HGRI1 de la mémoire princi- 
pale, et la seconde à celui de la page 
HGRI de la mémoire auxiliaire. Pour 
comprendre parfaitement les opéra- 
tions à effectuer, il est bon d'analyser 
le programme CREATION CERCLE 
HAUT qui crée une série de cercles 
concentriques, 


Pour qu'une image puisse étre char- 
gée par le programme COPIE asso- 
cié à l'utilitaire de Hard Copie, il faut 
que les fichiers associés se terminent 
par : ” 1” (mémoire principale), ” 2” 
(mémoire auxiliaire}. Par exemple : 
CERCLE HAUT 1 et CERCLE 
HAUT 2. 


Conseils: pour éviter les ”’planta- 
ges”, utiliser HGR pour effacer la 
mémoire principale et CALL 62450 
pour effacer la mémoire auxiliærre. 
En outre, il faut protéger la HGRI1 
par un HIMEM ou un LOMEM. 


Programme de Hard 


Copie 


Le programme Basic COPIE sert 
seulement à charger une image en 
mémoire, à la visualiser, et à appeler 
la routine en assembleur après avoir 
positionné certains pointeurs. Cette 
routine toume sur les configurations 


suivantes : Apple /ic ou //e et impri- 
mante Image Wiiter. Les listings sont 
suffisamment commentés pour per- 
mettre une adaptation rapide à d’au- 
tres configurations. 1] a les mêmes 
fonctionnalités qu'un programme de 
Hard Copie classique : impression de 
l'image telle qu’elle apparaît à l'écran 
ou en inverse, taille normale 560 x 
192 points ou double 1120 x 384 
points. 

La routine est implantée à l'adresse 
$4000 (16384), maïs elle est parfai- 
tement relogeable (elle utilise la page 


Une précision importante pour les 
possesseurs de //c: avant d'envoyer 
des informations à l'imprimante en 
langage machine par un JSR COUT, 
il est nécessaire d'effectuer un SEI. 


Ls taille de l'image imprimée doit 
être spécifiée via l'adresse $300. Seul 
l’état du 8ème bit est testé. Pour ob- 
tenir une taille normale: POKE 
768,N avec N strictement inférieur à 
128; pour obtenir une taille double, 
N doit être supérieur à 128. 

L'aspect de cette image est spécifié 
via l'adresse $301 par un POKE 
769,N. Si N est stictement inférieur 
à 127 l'image est telle qu’elle appa- 
raît à l'écran et si N est supérieur à 
128, l'image est en ”’inverse”. 


Pour appeler la routine, il suffit, 
après avoir positionné les deux pré- 
cédents pointeurs, de charger une 
image en mémoire, de mettre en 
marche l'imprimante et d'effectuer 
un CALL 16432 (ou CALL adresse 
de début d'assemblage + 48). = 





Programme COPIE 


180 VUTAB 13: 


HTAB 28: 


PRINT *3) IMPRIMER 


UNE IMAGE THGR" 
190 VTAB 14: HTAS 2B: PRINT "4) ARRET DU 


10 REM IMPRESSION SUR DMP D’UNE IMAGE T PROGRAMME 
HGR 200 UTAB 23: INPUT "VOTRE REPONSE € 1,2, 

20 D$ = CHR$ <4): POKE , 14368,0 3 OU 4 ) “AS 

30 pee a S REM COMMUTATION 80C | 519 REM VERIFICATION DE LA VALIDITE DE 

LA REPONSE 

40 PRINT 220 IF LEN (4%) < > 1 THEN 140 

50 HIMEM: 8100: REM PROTEGE LA ROUTINE 230 IF ASC (AS) > 52 OR ASC (A$) € 49 
ASSEMBLEUR GOTO 140 

60 D$ = CHR$ (4) 240 IF A$ = "d" THEN HOME : END 


70 PRINT D$;"BLOAD HARD” 
80 HOME 
90 INVER3SE 


100 UTAB 8: HTAB 35: PRINT 
110 VUTAB 11: HTAB 34: PRINT "D’UNE IMAGE 280 


120 VUTAB 14: HTAB 28: PRINT 


UTION ETENDUE" ; 
130 GET +: REM 

R CONTINUER 
140 NORMAL HOME 


150 VUTAB 7: HTAB 28: PRINT "12 CHARGER U 320 IF A$ € 
NE IMAGE THGR" 330 HOME 
1460 CALL 1002: REM POUR BIEN CONNECTER 340 REM 


LE DOS 
170 VUTAB 15: HTAB 28: 
ER UNE IMAGE THGR" 


* IMPRESSION" 


"HAUTE RESOL 290 


ATTENTE D'UN CR POU 300 1IF 


PRINT "2) VISUALIS 350 REM 


250 À = VAL (AS): 

269 GOTO 140 

UTAB 22: PRINT "POUR EFFECTUE 
R UN CATALOG REPONDRE ? * 

VTAB 23: PRINT "POUR RETOURNER À L’E 


270 HOME : 


ON À GOSUB 270,658 ,680 


CRAN PRECEDENT CR “* 


VTAS 12: HTAB 10: 


INPUT “NOM GENERIQ 


UE DE L’IMAGE À CHARGER " ;A$ 


LEN (AS) = 0 THEN RETURN 
310 IF € ASC (AS) 

) AND ÀA$ < > “?7" THEN 
> 


{ 43 OR ASC (AS) 
RETURN 


> 90 


"2* THEN 410 


CONNECTE LE 005 @iI PEUT ETRE 0 


ECSNNECTE PAR LIN PR#H3 


SQUS DOS 3.3 « PAS BE PROBLEME 


AVEC PRODOS ) 


DR QC VENTRE ESS : 
; uso % "* 
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360 CALL 1002 820 REM < VALEUR >} OÙ « À 128 ) 
370 PRINT D$;"CATALOG" 830 POKE 768,0: IF A1 = 2 THEN POKE 768 
380 PRINT : INPUT “PRESSER LA TOUCHE RET ,200 
URN POUR CONTINUER “;A$ 840 POKE 769,00: IF A2 = 2 THEN POKE 7é 
390 GOTO 270 9,200 
400 REM AFFICHAGE DE LA PAGE THGR 850 CALL 16432 
410 GOSUB 870 860 RETURN 
420 REM CHARGE LA PAGE HGR DE LA MEMOIR | 870 REM AFFICHAGE DE LA PAGE THGR 
E PRINCIPALE 880 POKE 49160,0: REM ALTZP OFF 
430 POKE 49153,0: REM BOSTORE ON 390 À = PEEK (49246): REM ANS OFF 
440 POKE 49236,0: REM PAGE2 OFF 900 À = PEEK (49232): REM GR ON 
450 POKE 49156,0: REM RAMWRT OFF 910 À = PEEK (49239): REM HIRES ON 
460 POKE 49154,0: REM RAMRD OFF 920 A = PEEK (49234): REM HIRES ENTIERE 
470 REM POSITIONNE LES COMMUTATEURS ET |930 POKE 49165,0: REM 80 COL ON 
EFFACE LA THGR 940 RETURN 
480 REM UTILISER HGR POUR LA MEMOIRE 
490 REM PRICIPALE ET CALL 62450 POUR LA | =— 
MEMOIRE AUXILIAIRE 
500 HOME : HGR : POKE 49234,0: POKE 4923 | Programme CREATION CERCLE HAUT 
7,0: CALL 42450 
510 POKE 49236,0: REM COMMUTE LA MEMOIR 
E PRINCIPALE 10 REM TRACE DE 3 CERCLE EN HAUTE RESOL 
920 ONERR GOTDO 400 UTI ON 
530 PRINT D$;"BLOAD ";A$;" 1" 20 D$ = CHR$ (4): PRINT D$3:"PR#3": PRINT 
540 POKE 49237,0: REM COMMUTE LA MEMOIR 
E AUXILIAIRE 30 REM AFFICHAGE DE LA TRES HAUTE RESOL 
550 PRINT D$;"BLOAD ";A$;" 2" UTI ON 
560 POKE 49236,0 40 POKE 49160,8:A = PEEK (49246): = P 
570 POKE 216,0 EEK (49232):A = PEEK (49239) 
380 HOME : TEXT 50 À = PEEK (49165) 
970 RETURN 60 REM POSITIONNEMENT DES COMMUTATEURS 
$00 REM ERREUR DISQUE 70 POKE 49234,0: POKE 49153,0: POKE 4915 
610 TEXT : HOME : VTAS 11: HTAB 20: INVE 6,0: POKE 49154,0: POKE 49236,0 
RSE 80 REM EFFACE LA THGR 
#20 PRINT "ACCES À CE FICHIER IMPOSSIBLE | +9 HGR : POKE 49237,0: CALL 62450: POKE 
"+: NORMAL 49236,0: POKE 49234,0 
630 VTAB 23: PRINT “APPUYEZ SUR UNE TOUC | 100 HCOLOR= 3 
HE POUR CONTINUER ": GET AS 110 FOR 1 = 1 TO 90 STEP 5 
640 POKE 216,0: GOTO 140 120: 0F0R-Jr=" 10 TO 6,27 STEP 03/1 
6950 REM VISUALISATION D’UNE IMAGE 130 X = 270 +4 ? x I x COS (JD): = 96 + I 
éé0 GOSUE 870 * SIN (J) 
670 INPUT A$: HOME : TEXT : RETURN 140 GOSUB 250 
680 REM IMPRESSION D’UNE IMAGE 150 NEXT J 
690 HOME 160 NEXT 1 
700 VTAB 7: HTAS 28: PRINT "1) TAILLE Sé | 170 REM SAUVEGUARDE DE L’IMAGE CREE 
0*192, NORMALE" 180 PRINT D$;"BSAVE CERCLE HAUT 1,A52000 
710 VTAB 10: HTAB 28: PRINT "2) TAILLE 5 ,L$2000" 
60#x172, INVERSE" 190 POKE 49237,0: PRINT D$;"BSAVE CERCLE 
720 VTAB 13: HTAB 2B: PRINT "3) TAILLE 1! HAUT 2,A$2000,L$2000" 
120#364, NORMALE" 200 POKE 49236,0 
730 VUTAS 16: HTA8S 2B: PRINT “4) TAILLE 1 | 5j9 TEXT 
120x*384, INVERSE" 220 END 
740 UTAB 19: HTAB 28: PRINT "5) RETOUR À | 230 REM 
U MENU GENERAL" 240 REM ANALYSE DES COORDONNEES THGR 
750 VTAB 23: INPUT "VOTRE REPONSE (1..5) PAGE: OÙ 2 ET Sé0 ->230 
SIA 250 XX = INT CX / 7):PG = XX — 2 x INT 
760 IF LEN (AS) < > 1 THEN 690 NY 2 
770 IF ASC (A$) < 49 OR ASC (AS) > 53 260 XX = INT (XX / 25 x 7 + X - 7 » XX 
THEN 690 270 POKE 49237,0: IF PG THEN POKE 49236 
780 IF A$ = "5" THEN RETURN ,0 
790 Al = 1: IF AS = "3" OR A$ = "4" THEN | 286 IF XX > 279 THEN RETURN 
At = 2 290 REM AFFICHAGE DU POINT AVEC HPLOT D 
800 A2 = 1: IF ÀA$ = "2" OR AS = "4" THEN ANS LA 8SONNE PAGE MEMOIRE 
AP; 2 300 HPLOT XX,B 
810 REM EN 768 ET 769 SEULE LA VALEUR 8 | 310 POKE 49236,0 
U 7EME BIT EST TESTEE 320 RETURN 
Programme HARD.S Source Big Mac :, : 
3 * x 8 OPG +$4000 
4 x TABLE DES LIGNES HGR * 9 3ORGANISATION MEMOIRE 





Fr + D 
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rs sts) 


3300 : Taille 
3301 : Inverse ou Normal 
3302 à 309 : Buffer Caracteres 
330À : Ordre Ligne 
:30B : Ordre Octet 
518 : octet a aller chercher 
5310 Partie basse où haute ligne 
3311 : Pointeur de repetition horiz 
ontale 

ORG #54000 
DEBTAB HEX 00,20 

HEX 80,20 

HEX 00,21 

HEX 80,21 

HEX 00,22 

HEX 80,22 

HEX 00,23 

HEX 80,23 

HEX 28,20 

HEX ÀA8,20 

HEX  2B,21 

HEX A8,21 

HEX 28,22 

HEX AÀ8,22 

HEX 28,23 

HEX AB,23 

HEX 50,20 

HEX  D0,20 

HEX 50,2: 

HEX  DO,21: 

HEX 50,22 

HEX  D0,22 

HEX 50,23 

HEX 00,23 
FINTAB sFin table HGR 


L 2 
EX 2 KE 2 D JÉ N  Æ E  E E X X E X X XX EX 


XX XX 


% 

% 

% PROGRAMME PRINCIPAL 
% 

* 


ÉD DE DE JE NE DE JE JE JE JE JE DE JE JE NE DE JE JE DE JE DE JE 36 JE 36 JE 6 JE JE NE 6 JE 
; Table des commutateurs memoire 


AN3 EQU #$COSE 
GR EQU $C050 
HIRES EQU #$Cc057 
FULL EQU $C052 
C8L£0 EQU #$C00D 


ONSOST EQU #Cooi 
OFF80ST EQU #$C000 


ONIPG2 EQU #$COS5 
OFFPG2 EQU $C0Sa 
DPRET EñLt $cüûdd 
OFFRB EAU #C002 


ONTEXT EQU #$C05S1 
i ADDRESSES SYSTEME 


COUT EOU $FDED 

5 POINTEURS PROGRAMME 
ORLIG EQU #30 
OROCT EQU +$30B 
ADR EQU #18 
INDIC EQU #30C 
TYPE EOU +$301 


TAILLE EQU +$300 
HBLIG EQU #5310 
POINTE EQU #$311 


OUTPORT EQU $FE95 3 SELECTIO 
N DES PERIPHERIQUES 
% DEBUT DU CO 
DE 

CLD 

SEI 

STA  OFFPG2 jEvite Îles 


plantages avec la SSC 


LDA #$01 
ROUTE IMPR 
JSR  OUTPORT 
LDA ##89 
JSR COUT 
LDA #"2° 
JSR COUT 
LDA  ##80 
JSR COUT 
LDA ##98 
N DE L'’INTERLIGNE 
JSR COUT 
LDA #H#D4 
ET 
JSR COUT 
LDA #$Bi 
6 
JSR COUT 
LDA H#$86 
JSR COUT 
LDA  AN3 
E DE LA PAGE THGR 
LDA GR 
LDA HIRES 
LDA FULL 
STA COLS0 
STA  ONSOST 
ON COMMUTATION 
STA  OFFUT 
STA OFFRD 
LDA  #$00 
SATION N LIGNE 
STA ORLIG 
STA POINTE 
LDA H#SFF 
STA HBLIG 
AUTRE BIT TAILEE 
BPL A! 
LDA HBLIG 
EOR #8FF 
STA HBLIG 
BIT HBLIG 
8PL Ai 
DEC ORLIG 
ai LDA H#$8D 
JSR COUT 
LA  #59B 
JSR COUT 
LDA  H5F0 
JSR COUT 
LDA HSFF 
STA  GROCT 
LDA #500 
STA  INDIC 
UR DE PAGE 
LDA 4598 
ION UNE LIGNE HGR 
JSR COUT 
LDA H#C7 
E G 
JSR COUT 
LDA  H$81 
JSR COUT 
LDA #381 
JSR COUT 
LDA  H$82 
JSR COUT 
LDA  #$B0 
JSR COUT 
JMP  COMPL 
COMPL LON #&FF 
T DE PAGE 
INC  OROCT 


.. 


MISE EN 


SELECTIO 


CARACTER 


NOMBRE !i 


AFFICHAG 


; PREPARATI 


INITIALI 


INDICATE 


:- SELECT: 


CARACTER 


; CHAT IGEMEN 


INCREMEN 
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TATION ORDRE 


OCTET 


143 EOR INBIC 
144 STA  INDIC 
145 STA  ONPG2 
144 BNE  SELEC 
147 STA  OFFPG2 
148 DEC OROCT 
MENTATION SI GOTO PG2 
149 SELEC LSA  ORLIG 
E L'ADRESSE A CHARGER 
150 ASL 
151 TAX 
152 LDA DEBTAB,X 
153 STA ADR 
154 LDA DEBTAB+1,X 
155 BIT TAILLE 
156 BPL STORE 
157 BIT HBLIG 
158 BPL STORE 
15? CLC 
160 ADC 4810 
161 STORE STA ADR+1 
162 LOX #50 
163 LDY  OROCT 
164 LDA ##00 
165 STA POINTE 
166 CHRG LDA (ADR) ,Y 
167 STA +302,X 
168 INX 
169 CPX ##9 
170 BE® FINCH 
171 BIT TAILLE 
17D BPL NON 
173 LDA POINTE 
174 EOR H%FF 
175 STA POINTE 
176 BNE  CHRG 
177 NON LDA #64 
178 CÉC 
179 ADC  ADR#1 
180 STA  ABR+1 
181 ENE  CHRG 
182 FINCH LDY  H$07 ; 
FORME DES COLONNES 
183 LI LOX ##08 
184 L2 LSR $301,X 
185 RO 
1B6 DEX 
HARD 
#*4000.41A0 
4000- 00 20 20 20 00 21 80 21 
4008- 00 22 80 22 00 23 80 23 
4010- 28 20 ÀA8 20 28 21 A8 21 
4018- 29 22 AS 22 283 23 AB 23 
43020- 50 20 00 20 50 21 DO 21 
4028- 50 22 00 22 50 23 00 23 
4030- D8 78 80 54 CO A? G1 20 
4038- 95 FE A9 89 20 ED FD A9 
4040- DA 20 ED FD A7 8D 20 ED 
4048- F0 A9 98 20 ED FD AY D4 
4050- 20 ED FD À? 8! 20 EO FD 





[e] 
Le] 


[e] 
[e) 
[e) 


Le Pachs 


;PAS INCRE 


y CALCUL D 


MISE EN 


4058- 
4060- 
4068- 
4070- 
4078- 
4080-— 
4088- 
4090- 
4098- 
40A0- 
430A8- 
4080- 
4088- 
40C0- 


A? 
AD 
Co 
04 
0A 
10 
10 
10 
S3D 
FD 
8D 
A? 
ED 
81 


Editeur plein écran : EPE 


Apple I+, //e. 7/0 


Listez vos programmes Basic en avant et en arrière. 


Modifiez, 
écran sans re 


insérez, 


lire les liges 


Recherchez toute chaine de caractères. 


Choisissez vous-même les codes de contrôle d'ÉPE. 


Modifiez EPE : 


150,60 F FC fronco {bon de commande page 78). 
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FES 


IT Lei 


Les 


« 


le fichier source est sur ls disquette. 


effacez des caractères en plein 





BNE L2 
STA  OFFPG2 
BIT TYPE 
BPL NOINK 
EOR #H$FF 
NOINV JSR COUT 
BIT TAILLE 
BPL NORME 
JSR COUT 
NORME DEY 
BNE Li 
LDA #$27 
CMP  OROCT 
BEQ Ni 
JMP  COMPL 
NI LDA #H$00 
CMP  INDIC 
BER N2 
JMP  COMPL 
N2 INC  ORLIG 
TATION ORDRE LIGNE 
LDA #$03 
STA $FF 
LDA  #$30 
STA $FE 
LEL LDA #588 
JSR COUT 
DEC $FE 
BNE LLL 
DEC &FF 
BNE LLL 
LDA #$is 
CMP  ORLIG 
BE@ FIN 
JMP AUTRE 
FIN STA  OFFPG2 
normale des switchs 
STA  ONTEXT 
STA  OFF80ST 
LDA #$80 
JSR COUT 
LDA #503 
JSR  OUTPORT 
LDA #$53B 
JSR COUT 
N EFFECTUER PR#3 
RTS 
AD 5€ C0 40C8- FD A9 
co AD 52 40D0- 40 A7 
61 CO 80 4008- 03 8D 
A9 00 8D 40E€0- 04 80 
A9 FF 8D 40E3- 0A 03 
LOSrOSAG 40F0- 18 80 
19 03 2C 40F9- 08 ?C 
0A 03 A9 3100- 10 85 
78 20 ED 4108- A9 00 
FD A9 FF 4110- 02 03 
80 0€ 03 4118- 00 03 
A9 C7 20 4120- FF 8D 
ED FD A9 4123- 18 65 
82 20 ED 4130- 07 A2 
4138- 00 F9 
4140- 10 02 
4148- 00 03 
4i50- DO DF 
41583- 03 4C 
4160- 03 FO 
4168- 03 A9 
4170- FE A9 
4178- 00 F7 
4180- CO 04 
4188- 80 54 
4190- CO A9 
4198- 20 95 
4140- 40 


; INCREMEN 


; Position 


; PRH3 


POUR BIE 





 _ 


£raHsi 


ER 
53 


Les pointeurs, 


Olivier Herz 


Pour illustrer et compléter l'article du 
Pom's 17 sur ks pointeurs, nous 
vous offrons un petit programme de 
démonstration de Régis Lardennois. 
Celui-ci vous permet de bien 
comprendre la gestion des variables 
dynamiques et de visualiser les 
adresses mémoires utilisées. 

Le lecteur pourra aussi se reporter 
avec profit à deux autres articles du 
même auteur, qui sont une applica- 
tion un peu plus sophistiquée des 
notions décrites ci-dessous : 
"Tableaux de taille déclarée en Pas- 
cal” (Porn's 6) et: 

"Effacement de directory en Pascal” 
(Pom's 7). 

Citons également pour mémoire les 
"PEEKS et POKEs en Pascal” de 
Jacques PINO (Pom's 12); c'est une 
sorte de ”’magouille” dont la compré- 
hension n'est pas immédiate. 


Utilisation 


ll suffit d'exécuter le programme et 
de répondre par un chiffre de 1 à 7 
au menu. 


1— destruction tableaux 1 et 2 
2— création tableau 1 

3— initialisation tableau 1 

4-— création tableau 2 

5-— initialisation tableau 2 

6— visualisation tableau 1 

7-— visualisation tableau 2 


Explications 


Laurence Tichkowsky nous a pré- 
senté les pointeurs comme étant des 
variables dynamiques; la place pour 
les stocker n'est pas réservée de 
façon immuable par la compilation, 
mais au contraire cette place est dé- 
gagée à l'exécution au moment où 
l'on crée un nouvel élément du poin- 
teur {instruction NEW). 

Nous allons maintenant voir que le 
Pascal UCSD permet à un pro- 
gramme de se débarasser en cours 
d'exécution des variables dynami- 
ques dont il n’a plus besoin. Il utilise 
pour cela, outre NEW, deux procé- 
dures du système UCSD : MARK et 
RELEASE. 


Le Pascal utilise une sorte de pile 
pour gérer Ses pointeurs, la procé- 
dure NEW(P) crée P _et le place au 
sommet de la pile. 

La PROCEDURE MARK{VAR PI- 
LEPTR: INTEGER) va permettre à 
l'Apple de “mémoriser” l'adresse du 
sommet de la pile, en faisant un 
MARK(PTR) où PTR est de 
typé INTEGER. 

Inversement, la PROCEDURE RE- 
LEASE(VAR PILEPTR: INTEGER) 


suite... 


LE PROGRAMME CI APRES EST UNE APPLICATION TRES 
SIMPLE DES POINTEURS AVEC VISUALISATION DES 3 
DES ADRESSES MEMOIRE UTILISEES ) 

IL PERMET DE BIEN COMPRENDRE LE FONCTIONNEMENT 
DES PROCEDURES PASCAL UCSD DE GESTION DES ) 
VARIABLES OYNAMIQUES NEW MARK et RELEASE } 


DANS 


CxR-+) 
PROGRAM TESTPGINTEUR; 


TYPE ARTICLE = RECORD NUMERO: INTEGER; 
NOM :STRING ; 
END; 
TABLEAU = ARRAY(I8..9] OF ARTICLE; 
POINTEUR = *TABLEAU; 
PTI = *INTEGER; 


VAR ART: ARTICLE; 
HEAPI ,HEAP2 :PTI; 
POINT1,POINT2 :POINTEUR; 
CL : CHAR; 

1 : INTEGER; 


FUNCT ION PTARTICLE (PT:POINTEUR) : INTEGER; 
VAR X :RECORD CASE BOOLERAN OF 


TRUE : CPTR:POINTEUR) ; 
FALSE CINT:INTEGER) ; 
END; 
BEGIN 
X.PTR:=PT; 
PTARTICLE:=X.INT:; 
END; 


FLNCTION PTINTEGER (PT:PT1):INTEGER; 
VAR X:RECORO CASE BOOLEAN OF 


TRUE :CPTR:PTI);: 
FALSE :CINIT:INTEGER); 
END; 
BEGIN 
X-PTR:=PT; 
PTINTEGER:=X.INT; 
END ; 


PROCEDURE MENU; 
BEGIN 
PAGE OUT PUT ) ;WRITECCHR(28) ) ; 


) 


) 


€ COMPATIBILITE APPLE II ET //7 3 


WRITELN(’ PROGRAMME DE DEMONSTRATION DE L'’'USAGE DES POINTEURS”); 


WRITELN; 
WRITELNC/MEMOIRE DISPO’ ,MEMALAIL) ; 
WRITELN; 
WRITE (‘’ HEAP1 = ‘ ,PTINTEGER(HEAPI), 
?  HEAP2 = ‘ ,PTINTEGERCHEAP2) ); 
WRITELN&’ POINT! = ’,PTARTICLE{POINTI), 
*  POINT2 = ” ,PTARTICLEXPOINT2)) ; 
WRITELN; 


WRITELN(’1 DESTRUCTICON TABLEAUX 1 ET 2°); 
WRITELN(’2 CREATION TABLEAU 
WRITELN(’3 INITIAL  TABLEAU ; 
WRITELN(’4 CREATION TABLEAU 2°); 
WRITELN(’S INITIAL TABLEAU 2°); 
WRITELN(’é6 VISUALIS TABLEAU 1°); 
WRITELN(’7 UVISUALIS TABLEAU 2°); 
WRITELNÇ‘ESC QUITTER’); 

REAOK CL) ; 

END; 


BEGIN 
MARKCHEAPI D ; HEAP2:=HEAPI ;POINT1 :=NI&3; POINT2:=NIL; 
REPEAT MENU; 


CASE CL OF 
‘17 :BEGIN RELEASECHEAPI ) ; HEAP2:=HEAP)] ; 
END; 


‘2° :BEGIN NEWCPOINT !£) ;MARKCHEAP2) ; END; 
‘3° :FOR 1:=0 TO 9 DO 
BEGIN POINTI"(I}.NUMERO:=l] ; 
POINŸ1*CI1.NOM i="TABL' ; 


D 
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va restituer l'adresse du sommet de Dr a 
la pile, en faisant un RE- 2 SENS 


À -$’:FOR 1:=0 TO 9 DO 
LEASE(PTR), où PTR est de type BEGIN POINT2*111.NUMERO:=108+1; 
INTEGER et contenait cette adresse. POINT?-[II.NOM  :=’TAB2’ ; 
Dès lors, l'affaire est simple : il suffit END; 


de faire un MARK avant de faire un 


ou plusieurs NEW, pour noter la po- “A SEPINRENITENRS 


FOR 1:=8 TO 9 DQ 


sition de la pile avant la création de WRITELNPOINTI*LIJ.NUMERO,POINTI*LIJ1.NOM:108) ; 
nouveaux pointeurs. Puis, lorsque READK CL) ; 
lon désire jeter” ces pointeurs, il END; 
suffit de faire un RELEASE remettant f773BEGIN Pret gs 
le sommet de la pile là où il était WRITELNCPOINT2"C13.NUMERO, POINT2"(I1.NOM:18) ; 
avant. READ< CL) ; 
Notons que le Pascal standard per- ue ES 
- . me" 0 4 
met de se débarrasser individuelle- UNTIL CL=CHR(27); 


ment d’un pointeur par la procédure END. 
DISPOSE, mais qu’il ne connait ni 
MARK ni RELEASE. 


Le programme est une application 
très simple de ce qui précède, visuali- 
sons la pile après différentes opéra- 
fon par exemple 1 — 2 —- 4 — 4 — 





19 somnet = heapl = heap2 ------ 


2) Sommet = Reap2 ------—- 
table 1! 4 : : 
h ———…—… 
eapl BASICIUM, Ie Bosic enrichi... 
dl sopaet FE Oérard Michal appla ll+, //a 
heap2 rer 
table 1 Cet Utilltolre vous permet de : 
Reapl ------- 
4) sommet ------- À Gérer des masques ou écrans 40 ou 80 coionnes. Ces écrans. 
table 2 définis lors de la progrommotlon, s'affichent par la simple 
the commande JA. 
(pér imée) Soisir toutes les varlables d'un écran en une seule commande ll 
heap2 ES en contrôlont le type et 10 longueur. 
beapi Hours Pecopler l'écran 40 ou 80 colonnes sur l'IMprimontepor ÏH. 
Faire un nettoVage mémolratrès rapide por K. 
2) sommet = heap2 Te Gérer des messages. lo réponse étant contrôtée. 
RARE Mals aussi ne saisir que l'une des variables affectées à Un 
tabte 2 écran. les officher. les effacer. etc. 
table 2 
(périmée) Tous les lichlers source sont sur la disquette. 
—————— {Exemple de Cémonstration dans le Pom's 131 HA] 
table ! 
ani ere? Disquette et documentation : 150,00 F TTC franco (bon de commande page 78). f 
#1 


Remarquons que les fonctions 
PTARTICLE et PTINTEGER ne sont 
que des PEEKSs déguisés. Lo) 








Baltayan Alain 83160 La Valette 
Tirage auso ! Be Maurice 13004 Marseille 
Dans notre précédent numéro, nous annoncions 15 abon- Crueize Jean-Claude 77230 Moussy le Neuf 
nements avec disquettes à gagner pour les lecteurs qui Dettobi Christian 75013 Paris 
nous renverraient le questionnaire. Deveze Jean-Luc 11160 Caunes 
Vous avez été nombreux à répondre et nous vous en re- Esposito Gérard 51100 Reims 
mercions. Gaulon Pierre 72100 Le Mans 
Le tirage au sort a eu lieu le 30 avril 1985 La liste des Gintz Robert 67200 Strasbourg 
heureux gagnants est fournie ci-contre : Hentz André 57330 Hettange Grande 
Hugues Gilbert 33470 Gujan Mestras 
Si toutefois, un des gagnants veut offrir son abonnement à Lacroix Marc Suisse 
une personne de son choix, it doit nous faire parvenir les Menard Pierre 76800 Saint Etienne du Rouvray 
coordonnées complètes de celle-ci. Simon Philippe 68300 Saint Louis 
Les résultats détaillés de ce sondage paraïîtront dans le Picaud Jean 75011 Paris 
prochain numéro. Pierrot Claude 28410 Maroiles BU 
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des marques dépostes d'Apple Computer, Inc 


Appk et ke logo Apple sont 


CDLULLULLUUULEL) 





Puisque nous ne 
vous aviez Desoin, nous 





e 2 
| 
"li Une des plus grandes bibliethèques de logiciel 


programmes compatibles avec l'Apple Ile : jeus 
gestion de base de données, analyse financièrt 






| (2) 
229) (2 (8 | 
(686) 73) PE (0) (| (9 (EP 
EURE ET 





Un clavier 63 touches type AZERTY comprenant une accentuation complète et des 
caractères majuscules/minuscules intégrés. 





Connecteur Co pin ecteur ch pes sit lecteur raie pour e. p 
5% 4 SOUris. ss pur ne À pour TV couleur br se video, a imante ou traceur Veicicommeri 
l'écran de haute! 


en 
Eu Hp ETUIS " aus (TIR Sr va 
sad drol 
en un seul appara 
(C) E était indispensable 
Lie 
| 




















CLM & 4ABDO 


savions pas de quoi 
vous avons tout donné. 








Fm 


ai monde; 16.000 Voici 8 exemples de ce que vous pouvez afficher sur vetre 
tratement de texte, écran.8 parmi 16.880 ! à vous de découvrir les autres. 
* planification. Lorsque vous aurez essayé l'Apple Ilc vous ne regretterez pas 


nètre générosité. 





se présente l'Apple Ilc relié à 
déinition et à la souris. Ses connexions directes vous permettent d'utiliser 
-outes les fonctions dont vous avez besoin : imprimante, modem... 
avons donné autant de place, autant de beauté, 
(128 Ko), autant de possibilités 
c'est que cela 


F2 









EPS PL tohstrtttt ++ ll 
SESVTOSSSNSS “RFSSUIGUE LESC TES SERRE _— 
SOSNSSSSSSNS COSSSONSNS SERRE" ] 





4 programmer 
un ordinateur est 
devenu pour vous 

un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 

dans la conception des programmes 
qui “tourneront” sur votre machine. 
LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l’actua- 
lité et vous fournit trucs, astuces et idées 
pour mieux programmer... 
Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 


abonnez-vous! 


— CADEAU! 


D'un format pratique (11,5 x 
25 cm), le FRANS'BASIC est 
une table de conversion des 
instructions BASIC des 
21 micro-ordinateurs les 
plus courants, Ce livret de 
24 pages vous permettra 
d'adapter sur votre ordi- 
nateur la plupart des 
#\ programmes conçus 
#\ pourles autres 
machines 


D’ECONOMIE | ÈS 
Men en nn een n nee nn ne nnnnnnnnne One 


BULLETIN D’'ABONNEMENT 
(à retourner à LIST - Service Abonnements - 5, place du Colonel Fabien - 75491 Paris Cedex 10) 




















les “trucs 
de votre machine. 


ges grogne" 















Nom Prénom 


Adresse 
Code postall_L_1_1 1] Pays 


Ville 
Veuillez m'abonner pour 10 numéros au prix avantageux de 160 F* au lieu de 200 F - prix totat au numéro - et m'adresser en cadeau 


le TRANS’BASIC. Je joins mon règlement indispensable libelté à l'ordre de LIST. 





50 FS, Canada: 30 $C: autres : 210 FF Par avion: ÿ 


Beglate” Sum! reed dÀ us 
av. Massenet, 1190 Bruxelles. Versement Société 5 
2 1 de ONU 10-2418 Le Mont CH 1082. compte courant 880156 7 Canada: LMPI, 


Fees pates & pl 5. place du Colonel Fabien, 75491 Paris 








Les programmes décrits dans cet arti- 
cle ne fonctionnent qu'avec un Apple 
//e muni d’une carte 80 colonnes. 
Ayant réalisé quelques programmes 
qui n'utilisent l'Apple qu'avec des lo- 
giciels standards, j'ai été amené à re- 
chercher une transparence maximale 
du logiciel et en particulier du DOS. 
Ainsi les utilisateurs ne sont pas dé- 
sorientés et retrouvent le style de 
présentation auquel ils sont habitués 
(80 colonnes, utilisation des touches 
Pomme”, menus...) et n’ont quasi- 
ment rien à apprendre avant d’em- 
ployer mes programmes. 


Les programmes Basic MENU, CAT 
PLEIN ÉCRAN et EDITCAT permet- 
tent à l’utilisateur : 

— De sélectionner un fichier dans le 
catalogue de sa disquette, sans avoir 
à taper son nom, pour traitement ul- 
térieur par un programme (lecture, 
mise à jour, transformation.….). 

— D'afficher à l'écran les noms des 
fichiers du catalogue et de les modi- 
fier directement en plein écran, sans 
avoir à connaître les instructions du 
DOS. 


SALUT est un programme d'initiali- 
sation, MENU est le programme qui 
vous guidera lors de lutilisation (ils 
pourront vous donner quelques 
idées) et DEMO est un petit pro- 
gramme de démonstration des possi- 
bilités offertes par les programmes 
MENU et CAT PLEIN ECRAN. Il n'a 
pas la prétention d’être un modèle (il 
utilise un INPUT élargi qui accepte 
les virgules, mais refuse les lignes de 
plus de 256 caractères et ne filtre pas 
les caractères de contrôle). À noter 
que la ligne 300 teste le commuta- 
teur 80 colonnes afin de le rétablir 
s'il a été annulé pendant l'impres- 
sion. 


Programme 
d’initialisation 


Certaines routines en langage ma:- 
chine peuvent être exploitées par 
plusieurs programmes, ici c'est le cas 
de : 

— La routine de reconstitution du 
contexte en cas d'erreur (voir le ma- 
nuel Applesoft)}, indispensable dans 
tout programme qui s'adresse à des 
non informaticiens : un message d'’er- 
reur, c'est la honte ! 

— La routine RWTS et ses paramè- 
tres (voir le manuel du DOS, p.90). 
— La routine Catalog --> Tableau 
publiée dans Pom's 9. 

— La routine de comptage du nom- 
bre de secteurs libres (inspirée de 
celle parue dans Pom's 10). 

— La routine d'INPUT élargi (tirée 
de Pom's 5). 
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Il est avantageux d'implanter, en une 
seule fois, toutes ces routines en mé- 
moire (par exemple en page 3) par 
le biais du programme de salutation; 
ainsi, on gagne du temps et de la 
place (programmes plus courts). 


Pour rendre le programme plus lisi- 
ble et plus facile à modifier, la mé- 
thode d'implantation par S.HLAM 
(publiée entre autres dans Pom's 2) 
peut être adoptée (comme ici pour la 
routine de comptage des secteurs 
libres) mais elle est lente. On gagne 
quelques secondes en chargeant (par 
BLOAD) un fichier binaire contenant 
toutes les routines (ici ROUTINES) 
ou encore en implantant directement 
dans le DOS de la disquette la rou- 
tine de comptage du nombre de sec- 
teurs libres (par exemple en utilisant 
le programme DIRAC de Pom's 10; 
ne pas oublier de forcer à zéro le bit 
de poids fort des adresses: ainsi 
$ADC3 devient $2DC3 et se trouve 
en piste 1, secteur C; $BAGB devient 
$3A6B en piste O, secteur 4; les 
codes AE et B3 des octets $3A6D et 
$3A79 deviennent : 2E et 33). 


La routine IDENT.APPLE, lancée au 
début de SALUT, vérifie que l'Apple 
est bien un //e équipé d'une carte 80 
colonnes; l’octet résultant stocké en 
$3CF (975 en décimal) prend les va- 
leurs suivantes : 

e 0 si l'Apple utilisé n’est pas un //e. 

e 32 si vous travaillez avec un //e 
sans carte 80 colonnes. 

e 64 si votre Apple //e est muni 
d’une carte 80 colonnes mais sans 
mémoire auxiliaire. 

e 128 si votre Apple //e est équipé 
d’une carte 80 colonnes et d’une 
mémoire auxiliaire {Source : Tra- 
vaux Pratiques Applesoft, p.200). 


Remarque : ROUTINES réutilise les 
zones mémoires précédemment oc- 
cupées par IDENT.APPLE. 


Système d’aiguillage 
de la disquette 


Pour les utilisateurs non initiés, la dis- 
quette programme doit représenter 
un ensemble fermé et cohérent : le 
boot” débouche sur un menu d’ai- 
guillage auquel renverront également 
tous les programmes lorsqu'ils auront 
accompli leurs tâches. Le programme 
MENU assure cette fonction, il si- 
gnale le moment d'introduction de la 
disquette, demande le numéro du 
lecteur, avertit clairement en cas de 
fausse manoeuvre, et (en ligne 350) 
POKE dans les adresses 923 à 953 
le nom du programme (précédé de 
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la longueur de ce nom) choisi par 
l'utilisateur lorsque ce programme 
nécessite un passage préalable par le 
sous-programme CAT PLEIN 
ECRAN. 

MENU utilise la technique du menu 
à barres en inversion vidéo, c’est la 
plus reposante pour l'utilisateur en 
l'absence de souris ! 


Choix sur catalogue 
en 80 colonnes 


CAT PLEIN ECRAN offre les possibi- 
lités suivantes : 


— Îl affiche le catalogue de votre dis- 
quette en utilisant tout l'espace dis- 
ponible en 80 colonnes : 2 fichiers 
sur la même ligne (un enregistrement 
fichier occupe 37 caractères), soit 44 
noms de fichiers au maximum sur 
l'écran. 

— Il vous permet de travailler en 
plein écran : vous pouvez déplacer le 
curseur (une barre en inversion vidéo 
est positionnée, au départ, sur le pre- 
mier nom de la liste) sur les noms de 
fichiers en utilisant les quatre touches 
de déplacement du curseur (flèches), 
ou encore en tapant ”’D” pour reve- 
nir au premier nom de l'écran ou 
"F” pour aller directement au der- 
nier. 

— Vous avez accès à l'ensemble du 
catalogue : si votre disquette contient 
plus de 44 fichiers, vous pouvez 
consulter la suite du catalogue (3 
écrans maximum puisque le DOS ac- 
cepte au plus 105 fichiers par dis- 
quette) en appuyant sur la touche 
”S” (Suite), puis revenir à la page 
précédente en tapant ”’P” (Précédent 
écran). 

— Vous pouvez limiter l'affichage à 
un seul type de fichiers : les fichiers 
TEXT dans l'exemple de DEMO; la 
variable TS (ligne 370 de MENU) si- 
gnale cette option à CAT PLEIN 
ECRAN, qui sélectionne les fichiers 
voulus (ligne 320). 


Lorsque vous avez amené le curseur 
sur le nom de votre fichier, appuyez 
sur RETURN pour le sélectionner. Le 
programme qui va utiliser le fichier 


choisi est alors lancé; il PEEKera 
dans les adresses 923 et suite le nom 
du fichier sélectionné, que CAT 


PLEIN ECRAN y aura POKé. 


La dernière ligne de l'écran est un 

menu aide mémoire qui rappelle la 

liste des touches utilisables et leur si- 

gnification : 

© Flèches (pour déplacer le curseur 
dans les 4 directions). 

e D (pour début de l'écran). 

e F (pour fin de l'écran). 

e S (suite du catalogue, s'il occupe 
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plus d’un écran). 
e P (précêdent écran s’il existe). 
e RETURN pour le choix du fichier. 


Nom des principales variables 


— PG$ : nom du programme sur le- 
quel il faudra enchaîner. 

— A$(l): enregistrements du catalo- 
que (37 caractères chacun suivi d’un 
retour chariot). 

— F$(1) : nom de fichier 

(= MID$ (A$(1),8,30)) 

— NF: Nombre de fichiers dans le 
catalogue. 

— KT: Nombre de fichiers sélection- 
nés (si l’on désire seulement les fi- 
chiers textes par exemple). 

— SE : Nombre de secteurs libres. 

— NL: Numéro du fichier dans sa 
colonne. 

— 10: Nombre de fichiers dans les 
colonnes précédentes (y compris 
écrans précédents). 

— NN: Numéro du fichier dans son 
écran. 

— X: code ASCII (+ 128) de la tou- 
che frappée par l'utilisateur. 

— MV: déplacement (nombre de 
lignes). 

— PH : position horizontale. 

— PV: position verticale. 


Remarque: la ligne 250 simule le 
ONERR GOTO (non actif avec 
RWTS) en récupérant le code erreur 
de RWTS en $321 et en le ”tradui- 
sant” en code erreur du DOS: 
POKE 222,8. 


Variante 


On pourrait aussi utiliser ceci comme 
un programme de HELLO : il ne 
s’agit plus alors de sélectionner un fi- 
chier à faire traiter par un pro- 
gramme, mais un programme à lan- 
cer : CAT PLEIN ECRAN doit donc 
être intégré au programme SALUT 
(Attention ! la routine Catalog --> 
Tableau ne fonctionne que si le ta- 
bleau A$(N) est le premier déclaré et 
initialisé), et MENU n'a plus de rai- 
son d’être, pas plus que les lignes 
180 et 850 à 870 de CAT PLEIN 
ECRAN (PEEK et POKE du nom de 
fichier); les routines de traitement 
d'erreur (lignes 30 à 70 et 240 à 
260) deviennent également inutiles; 
supprimer aussi le suffixe ‘,D’’LE’ 
après CATALOG en ligne 290; la fin 
de programme devient : 


840 PRINT : TEXT : HOME 

850 IF MID$(AS$(INN),2,1) = ”’A” 
THEN PRINT D$ RUN” AS(NN) 
860 IF MID$(A$(NN),2,1) = ”B” 
THEN PRINT D$ BRUN’ AS(NN) 
870 IF MID$(AS$(NN),2,1) = "T” 
THEN PRINT D$"EXEC ”’AS(NN) 


Ces deux dernières lignes supposent 
que vous connaissiez le contenu des 
fichiers : à vos risques et périls..{le 
progamme ainsi transfonné ne 


s'adresse évidemment plus aux non 


initiés), vous pouvez cependant re- 
mettre en début de programme un 
petit sous-programme de traitement 
d’erreur du genre : 


30 CALL 768 : POKE 216,0: 

Y = PEEK(222) 

40 IF Y = 13 THEN VFABI12: 
PRINT ”Erreur sur le type de fichier. 
Ret --> autre essai ou 

Esc --> Applesoft”, : GET Z$: 
BEINE JF Z$ = CHR$(13) THEN 


50 END 


Vous pouvez même prévoir que RE- 
TURN lance un RUN ou BRUN et 
Espace” (par exemple) un LOAD 
ou BLOAD. 


Edition plein écran 
sur catalogue 


Visicalc et Applewriter offrent des 
possibilités d'action assez limitées sur 
le catalogue d’une disquette. FID 
n'est intéressant que pour des opéra- 
tions en série sur des fichiers; quoi 
qu'il en soit, l'instruction la plus ma- 
laisée à utiliser est le RENAME, qui 
oblige à taper en entier le nom de 
l’ancien fichier et le nouveau. 


Le programme EDITCAT remédie à 
ces lacunes : 

— Il offre toutes les fonctions de dé- 
placement de CAT PLEIN ECRAN. 
— Vous pouvez non seulement effec- 
tuer les opérations classiques d’effa- 
cement, de verrouillage et déverrouil- 
lage de fichiers, mais aussi aller 
modifier directement le nom d’un fi- 
chier comme si vous travailliez avec 
un traitement de textes de type Ap- 
plewriter. 

— De nombreuses sécurités sont pré- 
vues : le programme refuse d'obéir si 
vous essayez de franchir les limites 
de l'écran ou du catalogue, il vous 
avertit si vous avez oublié de fenner 
le lecteur, si votre disquette n’est pas 
formattée sous DOS 3.3, si vous es- 
sayez d'effacer ou de modifier un fi- 
chier verrouillé et même si vous es- 
sayez d'intervenir sur le trou” laissé 
par un fichier effacé, ou si vous avez, 
par mégarde, rebaptisé un fichier 
avec un nom déjà attribué. 


Quand vous l’appelez, le programme 
commence par vérifier que vous avez 
bien mis une disquette DOS 3.3 
dans le lecteur choisi et refermé la 
porte (pour ce faire, il va lire le 
VTOC de la disquette en utilisant 
RWTS et vérifie ie numéro de la ver- 
sion du DOS: 4 ème octet du 
VTOC), puis il charge le catalogue 
de la disquette et affiche les 44 pre- 
miers noms de fichiers. 


Sur la première ligne de l'écran, il 
précise le nombre total de fichiers de 
la disquette et le nombre de secteurs 
libres. 

La dernière ligne rappelle la liste des 
touches que vous pouvez utiliser 





pour accomplir les actions désirées : 


e Flèches (pour le déplacement du 
curseur dans les 4 directions). 

e D (début : appuyer sur la touche 
D ou d pour aller au premier nom 
en haut à gauche de l'écran). 

e F (fin: pour aller au dernier nom 
de l'écran). 

e S (suite : pour aller à l'écran sw- 
vant). 

e P (pour revenir à l'écran précé- 
dent). 

e M (pour modifier le nom du fichier 
sur lequel se trouve le curseur 
(voir plus loin le sous-menu de 
cette option). 

e E (pour effacer le fichier : un RE- 
NAME est d'abord tenté pour véri- 
fier que le fichier n'est pas ver- 
rouillé, il vous est ensuite 
demandé, par message en haut 
d'écran, confinnation ou annula- 
tion : O (ui} / N(on)). 

e V (pour vérrouiller un fichier). 
W (pour le déverrouiller). 
e C (pour compacter l'affichage, éli- 
miner les ”’trous” jaissés par les fi- 
chiers effacés, et remettre à jour 
les compteurs de nombre de fi- 
chiers et de secteurs libres: en 
fait, il s’agit tout simplement de re- 
charger le catalogue mis à jour). 
RETURN (Retour chaïiot) indique 
la fin de travail sur ce catalogue : 
le programme demande si vous 
désirez passer à une autre dis 
quette (RETURN) ou retourner au 
menu général de la disquette (par 
la touche ESC). 


Quelques précisions sur 
la modification 


Cette fonction affiche dans le coin 
supérieur gauche de l'écran le mot 
“Modification”, remplace le curseur 
barre par un curseur caractère et affi- 
che sur la dernière ligne un nouveau 
menu : 


e Flèches : déplacement du curseur 
à l'intérieur du nom de fichier. 

e Pomme Ouverte-X: remplace le 
caractère sous le curseur par le ca- 
ractère tapé (ici X). 

e Pomme Pleine-Y : insère le carac- 
tère Ÿ avant le curseur, cette op- 
tion ne fonctionne pas sur les 29 
ème et 30 ème caractères : utiliser 
le remplacement dans ce cas. 

e Del: la touche DELETE vous per- 
met d'effacer le caractère qui se 
trouve sous le curseur. 

e ESC : en appuyant sur cette tou- 
che, vous annulez toutes les modi- 
fications effectuées sur ce nom de 
fichier; l’ancien nom est réaffiché 
et vous retournez au mode ‘’Dé- 
placement”. 

e RETURN permet de confirmer le 
nouveau nom de fichier (RE- 
NAME, après avoir vérifié que le 
nouveau nom n'est pas déjà attri- 
bué), vous êtes alors ramené au 
mode ”’Déplacement”. 
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Sac sport: toile enduite 
marine, biais gris 


Sangles + bandoulière 
amovible, ton sur ten 
Grand poche extérieure 
fermant par glissière. 
Fond caoutchouc isolant. 
Longueur totale: 70cm. 
largeur: 36cm 





Signe de reconnaissance 















Sac de voyage : caoutchouc souple 
“high tec”, gris doux. Sangles ton 
sur ton. Fermeture par glissière 
Grande poche intérieure. Marquage 
bagage. 


Attaché-case: Assorti au sac de 
voyage, souple et 
confortable. Une 
poche intérieure 
compartimentée. 
Fermeture par deux 
boutons noirs. 
Marquage bagage 


Les «goodies » dans le jargon Apple, cœ sont teus les accessoires à s'offrir ou à offrir pour (se) faire plaisir. 
La collection 85 vous propese une gamme sport et voyage. Nous espérons que ces nouveautés sauront vous 
séduire. Elles ont été créées dans l'esprit Apple. pour vous qui partagez avec nous une certaine façon de 
vivre, de travailler, de bouger. 


Designation Quantité Prix unitaire | Prix total 
Sac sport bleu | 285.00F 
Sac voyage gris | 285.00F 
Attaché-case ris 230,00 F 
Montant 1otal de la commande. Frais de port inclus TTC: 


Règlement par chèque joint à l'ordre de APPLE SEEBRIN, et adressé à : 
«Boutique Apple » Avenue de l'Océanie ZA de Courtabœuf - BP 131 - 91944 Les Ulis Cedex 


Cette commande est à envoyer à: 
Nom Adresse: __ : - 


Des conditiens particulières sont réservées aux adhérents du Club Apple. Souhaitez-veus recevoir des 
informations sur le Club Apple: QU CO NONT 
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Le programme contrôle le bon res- 
pect des règles du DOS concernant 
les noms de fichiers : il transforme les 
minuscules en majuscules, refuse les 
caractères non alphabétiques comme 
première lettre du nom, les virgules 
et même les caractères de contrôle 
qui poseraient des problèmes à l’aff- 
chage. 


Note : de nombreux messages ont 
été prévus pour prendre en compte 
le travail avec un seul lecteur de dis- 
quette : si Vous en avez deux, vous 
pouvez alléger notablement les pro- 
grammes en affectant le premier à la 
disquette programme et le second à 
la disquette fichiers. Vous pouvez 
alors éliminer les messages du style 


“Insérez la disquette programme 
(ou : fichier)...” ou "Erreur ! Ce n'est 
pas la disquette programme !”, etc. 


Utilisation 
des pages 0 à 3 
Routines en langage machine 


IDENT.APPLE : A$2D4,L$FB 
ROUTINES : A$300.L$9B 


— $300 (768): reconstitution du 
contexte en cas d'erreur. 

— $30B (779): lancement de 
RWITS, 


— $314 à $328 : paramètres RWTS. 
— $316 (790) : numéro de lecteur: 
— $321 (801) : code erreur 


Tableau 
— $340 (832): INPUT élargi 


Paramètres divers 


— $06-$07: nombre de secteurs 
libres 

— $08 : numéro de lecteur 

té mode d'affichage (40 ou 

} 

— $10: numéro de choix dans le 
menu. 

— $11: option ‘fichiers textes uni- 


quement” pour CAT PLEIN ECRAN 


Nom de programme ou de fi- 
chier 


— $39B (923) : longueur du nom 


— $32A (810) : routine Catalog --> 


— $39C à $3BA : nom du fichier 1 


Programme SALUT 120 HOME : ONERR GOTO 70 
| 130 GOSUB 450: GOSUB 30: PRINT TABX MA) 
10 REM PROGR. D’INITIALISATION | 510$" °STS" °NO$S: GOSUB 40 
20 Y$ = "ADC3:20 68 BA N BA68:20 2F AE A9 | 140 VUTAB 24: POKE 1403,18: PRINT IVS"FIè 
00 BS 06 BS 07 A0 CB 18 89 F2 83 ches°NOS$" "IV$" Choix par Return'°NO 
FO 0E A 90 F8 48 Eé 0é DO 02 Eé 0 $" "IUS"Esc --> Menu Général NDS; 
7 68 18 90 FO 88 DO E9 60": REM C | 150 FOR CH = 1 TO NC: GOSUS S0: PRINT C$ 
omptage secteurs libres (CH): NEXT 
30 DS = CHR$ (4): REM DS=CTRL-D 160 CH = 1: GOTO 230 
40 PRINT DS$"BRUN IDENT.-APPLE® :AP = PEEK | 170 POKE - 16368,0 
(9752: IF AP € 64 THEN PRINT "DE | 180 C = PEEK « - 16384): IF C < 128 THEN 
SOLE: CE PROGRAMME NECESSITE": PRI 180 
NT TAB 10);: INVERSE 190 IF C = 138 THEN 240: REM Bas 
S0 IF AP = O0 THEN PRINT °UN APPLE//E? 200 IF C = 139 THEN 260: REM Haut 
60 IF AP = 32 THEN PRINT "UNE CARTE 80 210 IF C = 141 THEN 280: REM Return 
COLONNES" | 220 GOTO 170 
70 IF AP < 64 THEN NORMAL : END 230 GOSUB S0: PRINT IVS$CS(CH)INOS: GOTO 1 
80 PRINT D$"PR£3* 20 
90 PRINT : VTAB 1: HTAB 32: INVERSE : PR | 549 GOSUB 60:CH = CH + 1: IF CH > NC THE 
INT ° BONJOUR “;: NORMAL N CH= 1 
100 Y$S = Y$ + ®° N D9CéG” 250 GOTO 230 
110 FOR J = 1 TO LEN (Y$): POKE S1t + J | 260 GOSUB 60:CH = CH — 1: IF CH = O0 THEN 
»s ASC € MIDS (YS,J,1)3 + 128: NEXT CH = NC 
J: POKE 72,0: CALL — 144 270 GOTO 230 
120 PRINT : PRINT O$"BLORD ROUTINES”®: CA | 280 IF CH { 1 OR CH > NC THEN PRINT G$: 
LL 832 GOTO 170 
130 PRINT : PRINT D$°RUN MENU° 290 POKE - 16368,0 
140 END 300 PRINT : HOME : POKE 10,CH:TS = 0 
310 ON CH GOTO 320,330 ,380 ,320 , 380,440 
Programme MENU 320 T$ = ‘AFFICHAGE FICHIER TEXTE‘: GOTO 
340 
10 REM ——— MENU --- 330 T$ = ‘IMPRESSION FICHIER TEXTE® 
20 GOTO 90 340 PG$ = “DEMO°: HOME : GOSUB 30 
30 Mi = INT (678 —- LEN (T$#)3 / 22: PRIN | 350 LP = LEN (PG$): POKE 923,LP: FOR I = 
T : GOSUB 40: PRINT TAB MAD; 1VS" 1 TO LP: POKE 923 + 1, ASC € MIDS 
°T$"  "NO$ (PG$S,1,1)2: NEXT 
40 PRINT TABC MA);: INVERSE : FOR I = 1 360 COL = 80: IF CH = 4 THEN COL = 40 
TO LEN (T$) + 4: PRINT * “j: NEX | 370 POKE 9,COL:TS = 1: POKE 11,TS: PRINT 
T : NORMAL 1 PRINT : RETURN DS$°RUN CAT PLEIN ECRAN,D1": REM 
50 VTAB 2 x CH + 7: POKE 1403, INT ((80 TS=Option “fichiers TEXT seuls" 
—  LEN (C$CCH)9) / 22: RETURN 380 PRINT : UVTAB 10: PRINT ‘Insérez votr 
60 GOSUB 50: PRINT C$(CH): RETURN e disquette fichier puis donnez le 
70 CALL 768: POKE 216,0: ONERR GOTO 70 n" de lecteur."3: GET 2SiëNL = UA 
80 Y = PEEK (222): IF Y = 8 THEN PRINT L (2992: IF NL < > 1 AND NM « D 2 
G$SIVS"ATTENTION'!'"°NOS" Porte lecteu THEN PRINT GS: GOTO 380 
r disq.ouverte ou disq.vierge où à | 399 IF CH = 3 THEN POKE 8,NL: PRINT : P 
bimée.": PRINT “Fermez la porte ou RINT DS$"RUN EDITCAT,D1° 
changez la disquette puis appuyez | 400 PRINT : HOME : PRINT TABC 26)1U8"CA 
sur une touche.";j: GET 2%: PRINT TALOGUE DE VOTRE DISQUETTE"NOS" 
: HOME : RESIME Tapez ‘Retour chariot’" 
90 DS = CHR$ (42: REM Ctri-D 410 PRINT TABC é4)"pour continuer." 
100 RS = CHRS (13):G$ = CHR$ (7): REM 420 POKE 34,2 
Return & Ctrl-6G 430 PRINT D$;"*CATALOG,D°NE: VTAB 2: POKE 
110 IVS = CHRS$S (15) :NO$ = CHRS (14): RE 1403,31: PRINT PEEK (6) + 256 * 
M  INVERSE et NORMAL PEEK (7);° Secteurs libres"i: GET 
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440 
450 


460 
470 
480 
490 
300 


510 


2$: TEXT : HOME : GOTO 130 
END 
T$="DISQUETITE ":ST$ = " 
Men u- ":NC = 6 

C$(1) = "Afficher un fichier texte ” 

C$(2) = "Imprimer un fichier texte” 

C$(3) = “Remanier le cataloQue d’une 
disquette” 

C$(4) = C$S(1) + “en 40 col.":C$(1) = 
C$(1) + “en 80 col." 

C$(S5) = "Voir le catalogue de votre d 
isquette” 

C$(6) = "Arréter et passer en Basic”: 
RETURN 


Programme EDICAT 


10 


60 


70 


200 


220 


230 
240 


230 


260 


270 
280 


REM ——— EDITEUR DE CATALOGUE 

PLEIN-ECRAN --- 

GOTO 360 

REM ——— Traitement erreurs ——- 

CALL 768: POKE 214,0:Y = PEEK (222): 

POKE - 16368,0: ONERR GOTO 40 

IF Y = 8 THEN HOME : PRINT B$B$BS$"At 

tention' Porte lecteur disq.ouvert 

e ou disq.vierge ou abimée.": PRIN 

T ‘Fermez la porte ou changez la d 

isquette puis appuyez sur une touc 

he.*;: GET 2$: GOTO 100 

Y = 4 THEN HOME : VTAB 12: PRINT 

B$B$S"Disquette protégée. Enlevez 1! 

‘étiquette.°;: GET 2$: GOTO 100 

IF Ÿ = 10 THEN GOSUB I1B0: PRINT B$8$ 
B$IV$S"Attention! Fichier verrouill 
é";: GOSUB 110: RETURN 

IF Y = 6 THEN PRINT 8$B$"Erreur! Ce 
n’est pas la disquette programme!" 
: GOTO 1170 


IF 


GOTO 450 

PRINT : HOME : ON LC GOTO 400,530,11 
70 

FOR I = 1 TO 1000: NEXT : GOSUB 150: 
RETURN 

REM ——— Déplacements curseur —- 

GOSUB 180 


PRINT F$SCNN + 10) ;:NN = NN + MU: IF 
NN = NI THEN VTAB PU: POKE 1403,P 
H: GOTO 160 


GOSU8S 180 

PRINT IVSFSC(NN + IO)NOS; 

RETURN 

IF NN © 23 THEN UVTAB NN + 1: HTAB 8 

IF NN > 22 THEN VTAB NN - 21: POKE 
1403,47 

RETURN 

IF NN < 23 THEN VTAB NN + 1: HTAB 1 

IF NN > 22 THEN UVTAB NN - 21: POKE 
1403,40 

RETURN 

REM —— Ss-programmes de vérifi 
cation & réinitiain —--- 

UTAB 20: PRINT R$SD$S"RENAME "FS$SCNN + 
10)*,"F$SCNN + 10): RETURN 


1F FS$SCNN + 10) = * 
* THEN GOSUS 180: PRI 

NT B$8$8$I0$"Fichier effacé*NOS$ ; : 
GOSUB 110: POP 

UTAB 20: RETURN 

VTAB 24: POKE 1403,0: PRINT IU$S"Flèc 
hes"NO$* "IUVS$S"DCébut"NO$S® "IV$"F(Ci 
n'NOS®" "ILVS"S(uite°NOS" "IUVS" Préc 
"NOS" "1V$"MCodi f" NDS" "IUS"E(ffac 
"NOS" "IUS"VU(err 'NO$" *IVS$*L=déver 
r°NOS" °IVS$"C(omp'N0OS" "IVS"’Ret’- 
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290 


300 
310 
320 


330 
340 
350 
360 
370 
380 
390 
400 
410 


420 
430 


440 


450 


460 


470 


480 
490 
500 


510 





J)menu"NO$ ; : RETURN 

REM —r— Vérification pour éviter d 
ouble attribution --- 

FOR 1 = 1 TO NF 

IF FF$ © > F$(I) THEN 330 


GOSUB 180: PRINT BS8$1L/S"Nom déjà at 
tribué"NO$;: GOSUB 110: POP : GOTO 
1250 
NEXT 
RETURN 
REM ——— PROGRAMME PRINCIPAL —--- 
IUS = CHR$S (15) :N0O$ = 
CHRS (7)2:R$ = 
CHRS$ (4): REM 
i: ONERR GOTO 40 
N = 105: DIM ASCN),FS$SCN) 
ER = O:KL = PEEK (8): POKE 790,KL: C 
ALL 779 
PEEK (801): IF ER = 
KE 222,8: GOTO 40 
IF ER = 16 THEN POKE 222,4: GOTO 40 
DOS = PEEK (8195): IF DOS € > 2 AND 
DOS < > 3 THEN VTAB 12: PRINT 8 
$B$"SEULES LES DISQUETTES FORMATTE 
ES SOUS "IVS"D0OS 3.3 ou 3.2°N0$°" S 
ONT ACCEPTEES.": FOR I = 1 TO 2000 
: NEXT : GOTO 1180 
RENM ——— Affichage catalogue 


CHR$ {14):B$ 
CHR$ (13) 
0$ Ctrli-D 


LC 


64 THEN PO 


HOME :A = FRE (0):A$ = ‘°°; FOR 1 = 
1 TO 19:A$ = A$ + * ": NEXT : FOR 
I = N TO 1 STEP - I:A$CI) = AS + 
A$: NEXT :A$CD) = AS + “":A = PEE 
K (1077 + PEEK (10B) # 256 + 8: P 
OKE 254, PEEK (A): POKE 255, PEEK 
(À + 1) 
PRINT R$D$"NOMONCI0" : POKE 54,42: 
KE 55,3: POKE 56,60: POKE 57,3: 
LL 1002: PRINT D$"CATALOG,D'K ; 
INT D$°PR£O": PRINT O$"IN£O" 
NF = 0: FOR 1 = 1 TO N: IF MIDS CAS$( 
1),2,1) © D) * " THEN NF = NF + 1: 
NEXT 
SL = PEEK (6) + 256 * 
PRINT D$"PR£3":LC = 2 
PRINT TA8S( 2B)IVS°" CATALOGUE °NOS$"* 
"IVSNF ;NO$" fichiers "I1VSS 
L;NO$" secteurs libres”: PRINT : P 
OKE 34,1 
GOSU8 280 
POKE 35,23: 
10 = O:NN = 1 
NL = NF = 10: 
FOR 1 = 
+ 1 
POKE 1403,0: IF 10 
HEN  POKE 1403,40 
PRINT LEFTS (AS(11),7): 
F$SCII) = MIDS$S (AS(11),8,30): 
SCI1) ; 
NEXT 
IF 10 = 22 OR 10 = 
22: GOTO 4640 
IF NF = 10 ( 23 THEN 640 
NL = NF — 10 — NL: IF NL > 22 THEN NL 
= 22 
10 + 22: VTAB 2: GOTO 550 
1: VTAB 2: HTAB 8: PRINT IVSFS(N 
+ 10) NGS 
——— Choix utilisateur —-—- 
POKE - 14636B,0 
PEEK © —- 16384): 
670 


PO 
CA 
PR 


PEEK (7) 


HOME 


IF NL 
1 TO NL:II 


22 THEN NL = 22 
1 + 10: VTAB I 


[RS 


22 OR 10 = 66 T 
PRINT F 


66 THEN 16 = 10 - 


IF X < 12B THEN 





64 


680 IF X = 136 THEN GOSUB 890 

690 IF X = 138 THEN GOSUB 840 

700 IF X = 139 THEN GOSUB 840 

710 IF X = 141 THEN 1100 

720 IF X = 149 THEN GOSUB 910 

730 IF X > 224 AND X € 251 THEN X = X -— 
32 

740 IF X = 195 THEN 450 

750 IF X = 196 THEN GOSUB 950 

760 IF X = 197 THEN GOSUB 960 

770 IF X = 198 THEN GOSUB 1030 

780 IF X = 205 THEN GOSUB 1220 

790 IF X = 208 AND 10 > O THEN 1080 

800 IF X = 211 AND NF > 10 + 44 THEN 105 
0 

810 IF X = 214 THEN GOSUB 1010 

820 IF X = 215 THEN GOSUB 1020 

830 GOTO 660 

840 IF NN = 1 THEN 1070 

850 MU = — 1:NI = 22:PU = 23:PH = 7: GOS 
UB 130: RETURN 

B60 1F NN = NF — 10 THEN RETURN 

870 IF NN = 44 THEN X = 211: RETURN 

B80 MV = 1:NI = 23:PU = 2:PH = 47: GOSUB 
130: RETURN 

890 IF NN € 23 THEN RETURN 

900 MW = — 22:NI = 0: GOSUB 130: RETURN 

910 1F NN > 22 THEN RETURN 

920 IF NF - 10 < 23 THEN RETURN 

930 M = 22: IF NN + MV > NF — 10 THEN R 
ETURN 

940 NI = 0: GOSUB 130: RETURN 

950 MV = 1 - NN:NI = 0: GOSUB 130: RETURN 

960 GOSUB 260:Y = 0: GOSUB 250: IF Y = 1 
0 THEN RETURN 

970 VTAB 1: POKE 1403,0: PRINT IV$"Effac 
er ? Confirmez (O/N)°NO$:;:: GET 2%: 

IF 2$ < > °0° AND 2% < > °N* TH 
EN 970 
980 UVTAB 1: POKE 1403,0: PRINT * 
LE 
y 

990 IF 2$ = "N° THEN RETURN 

1000 PRINT RS$D$"DELETE "F$SCNN + 102>:F$CN 
N + 10) = " 

*: GOSUB 210: PRINT * 
"IVSFS(NN + 10)2N0$ ;: RETURN 
1010 GOSUB 260: PRINT R$D$"LOCK "F$SCNN + 
10): GOSUB 210: PRINT "#°;: RETUR 
N 
1020 GOSUB 260: PRINT R$SD$"UNLOCK "F$(NN 
+ 10): GOSUB 210: PRINT * “;: RET 
URN 

1030 MU = NF - NN - 10: IF NF > 44 + 10 T 
HEN MV = 44 — NN 

1040 NI = 0: GOSUB 130: RETURN 

1050 IF 10 > 66 THEN 660 

1060 10 = 10 + 44: HOME : GOTO 540 

1070 IF 10 = O THEN RETURN 

1080 10 = 10 - 44: HOME : GOTO 540 

1090 REM ——— Fin traitement -—-- 

1100 HOME : UTAB 10: HTAB 1: PRINT "UVoul 
ez-vous passer à une autre disquet 
te ou retourner au menu général ? 
*: UTAB 24: POKE 1403,0: CALL - 8 
68: PRINT IVS$"’Return’ = autre dis 
quette"NO$" "IVS$S"’Esc” = menu"NO$;: 

1110 POKE - 164368,0 

1120 X = PEEK € - 16384) 

1130 IF X < 128 THEN 1120 

1140 IF X < > 141 AND X € > 155 THEN 1 
110 

1150 POKE - 14368,0: PRINT : TEXT : HOM 
E 


1160 IF X = 141 THEN 1190 

1170 LC = 3: IF KL = 1 THEN UVTAB 10: PRI 
NT "Insérez la disquette programme 

en Di puis faites ‘Return’";3: GET 
è$ 

1180 PRINT R$SD$S"RUN MENU,D1" 

1190 VTAB 10: PRINT "Insérez votre disqu 
ette et donnez le n° du lecteur":;: 

GET 2$: PRINT :Kt = VAL (2$): IF 
KL < > 1 AND KL < > 2 THEN 1190 

1200 POKE B,KL: CLEAR : GOTO 360 

1210 REM ——- Modification nom fic 
hier —--— 

1220 GOSUB 260:Y = 0: GOSUB 250: IF Y = 
10 THEN RETURN 

1230 VTAB I: HTAB 1: PRINT I10$"Modificat 
ion"NO$S; 

1240 UVTAB 24: POKE 1403,0: PRINT IV$"--» 
"NOS®" "IUS"(—--"NOS$S" °IUS* PonOuv=Re 
mplacer"NO$" "IUV$"PomPlne=Insérer" 
NOS" "I1IU$*"Del=Effacer"N0O$S" "IUVS'ES 
c=Annulier °NO$" ‘IU$"Ret=Confirmer 
°NOS; 

1250 FF$ = F$SCNN + 10):PH = 7 

1260 Y$ = “°": IF PH > 7 THEN Y$ = LEFTS 
(FF$S,PH — 7) 

1270 2$ = “°: IF PH < 36 THEN 2$ = RIGHT 
$ (FF$,36 — PH) 

1280 X$ = MIDS (FF$,PH — 6,1): GOSUB 180 
: PRINT YS$IUSXSNOS2$; 

1290 POKE - 16368,0 

1300 X = PEEK « - 16384):PO = PEEK € - 
162B87):PP = PEEK < —- 16286) 

1310 IF X © 128 THEN 1300 

1320 IF X = 136 AND PH > 7 THEN PH = PH 
- 1: GOTO 1260 

1330 IF X = 149 THEN 1440 

1340 IF X = 155 THEN 1460 

1350 IF X = 141 THEN GOSUB 300: VTAB 20 
: PRINT R$SDS$S"RENME "FS$SCNN + I10)°, 
"FF$S:FSCNN + 10) = FF$: GOTO 1460 

1360 IF X < 160 THEN 1290 

1370 IF X = 255 THEN FF$ = Y$ + 2$ + CH 
R$ (160): GOTO 1260 

1380 IF X > 224 AND X € 251 THEN X = X — 

32 

1390 IF X = 172 THEN 1290 

1400 IF PH = 7 AND (X > 218 OR X € 193) 
THEN  GOSUB 180: PRINT B$IU$"Conmme 
ncez par une lettre! "NO$;: GOSUB 1 
10: GOTO 1260 

1410 IF PO > 127 THEN FF$ = Y$ + CHRS ( 
X) + 2%: GOTO 1440 

1420 IF PP > 127 AND PH € 35 THEN FF$ = 
YS$ + CHRS <X) + X$S + LEFTS (25, 
LEN (2$) —- 1): GOTO 1440 

1430 GOTO 1290 

1440 IF PH < 36 THEN PH = PH + 1 

1450 GOTO 1260 

1460 VTAB 1: POKE 1403,0: PRINT * 

“;: GOSUB 280: GOSUB 150: RET 
URN 





Programme CAT PLEIN ECRAN 


10 REM ——- CATALOGUE PLEIN-ECRAN 


20 GOTO 180 
30 CALL 768: POKE 216,0: ONERR GOTO 30: 
POKE — 16368,0 

PEEK (222): IF Y = 8 THEN PRINT 
B$BS6$" Attention! Porte lecteur di 
sqa.-ouverte ou disq.vierge au abimé 


40 Y = 
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e.": PRINT "Fermez la porte ou cha 
ngez la disquette puis appuyez sur 
une touche.";: GET 2%: PRINT : HO 
ME : IF ER = 64 THEN 230 

50 IF Y = 8 THEN RESUME 

60 IF Y = 6 THEN (VUTAB 15: PRINT B8$8$'"Er 
reur! Ce n’est pas la disquette pr 
ogramme!*: GOTO 880 

70 GOTO 280 

80 REM ——— Déplacements curseur —- 

90 GOSUB 140 

100 PRINT F$SCNN + 10)23:NN = NN + MU: IF 
NN = NI THEN VTAB PU: POKE 1403,P 
H: GOTO 120 

110 GOSUB 140 

120 PRINT IL$SFSCNN + 10)2N0$; 

130 RETURN 

140 IF NN © 23 THEN ULTAB NN + 1: HTAB B 

150 IF NN > 22 THEN UTAB NN - 21: POKE 
1403,47 

160 RETURHN 

170 REM ——— PROGRAMME PRINCIPAL - 

180 LP = PEEK (923): FOR 1 = 1 TO LP:X = 

PEEK (923 + 1):PG$S = PG$ +  CHR$ 
CX): NEXT 

190 ONERR GOTO 30 

200 IL$ = CHR$ C1S):NCS = CHRS (14):8% 
=  CHR$ C7D:RS = CHR$S (13) 

210 D$ = CHR$ (4): REM Ctrl-D 

220 N = 105: DIM ASCN),F$SCN) 

230 (VUTAB 10: PRINT "Insérez votre disque 
tte fichier puis donnez le n° de 1 
ecteur: "3: GET 2Z$:LE = VAL (29): 
IF LE < 1 OR LE > 2 THEN PRINT B 
$: GOTO 230 

240 ER = 0: POKE 8,LE: POKE 790,LE: CALL 
779: REM Lecture du LITOC par RUTS 

250 ER = PEEK (801): POKE 801,0: If ER = 
64 THEN PRINT : POKE 222,8: GOTO 
30 

260 DOS = PEEK (B195)2: IF DOS < > 3 THE 
N  UTAB 15: PRINT B$B8$"SEULES LES 
DISQUETTES FORMATTEES SOUS "IL$"DO 
S 3.3*N0$" SONT ACCEPTEES.": FOR 1 
= 1 TO 2000: NEXT : TEXT : HOME : 
PRINT DS"RUN MENU,D1" 

270 REM —-- Affichage catalogue --- 

280 HOME :A = FRE (0):A$ = "°: FOR I = 
1 TO 19:A$ = ÀA$ + " ": NEXT : FOR 
I = N TO 1 STEP - 1:A$CI1) = A$ + 
A$: NEXT :A$(0) = ÀA$ + "°:A = PEE 
K (1073 + PEEK (10B) *x 256 + B: P 
OKE 254, PEEK (A): POKE 255, PEEK 
A + 1) 

270 PRINT R$D$"NOMONCIO" : POKE 54,42: PO 
KE 55,3: POKE 56,60: POKE 57,3: CA 
LL 1002: PRINT D$°®CATALOG,D"LE: PR 
INT D$"PR£O": PRINT DS$"IN£O" 

300 FOR 1 = 1 TON: IF MID$ CAS$S(1),2,1) 

€ > *" ® THEN NF = NF + 1: NEXT 

310 KT = NF:TS = PEEK (119: IF TS € D 1 

THEN 340 

320 KT = 0: FOR 1 = 1 TO NF: IF MID$ (AS 
C12,2,1)3 = CHR$S (212) THEN KT = K 
T + 1:AS$CKF) = ASCI) 

330 NEXT 

340 Si = PEEK (é) + 256 *x PEEK (7) 

350 PRINT D$"PR£3" 

360 1F KT = O0 THEN PRINT 8$°Erreur: il 
n’y a pas de fichier texte sur cet 
te disquette.": GOTO 230 

370 PRINT TABC 28)I1U$* CATALOGUE °NO$° 
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°IVSNF;NO$S* fichiers °1VSS 
LINO$° secteurs Jibres": PRINT 3: P 
OKE 34,1 
UTAB 24: PRINT ILt$° 
, Fin, Suite, 
— choix fichier : 
POKE 35,23: HOME 
10 = O:NN = 1:NF = KT 
NL = NF — 10: IF NL » 22 THEN NL = 22 


——), --, Début 
Précédent écran 
‘Return’"NOS; 


FOR 1 = 1 TO NL:11 = 1 + 10: UTAB I 
+ 1 
POKE 1403,0: IF 10 = 22 OR 10 = éé T 
HEN POKE 1403,40 
PRINT LEFT$ (A$C11),7); 
F$CII) = MIDS (ASCI1),8,30): PRINT F 
$CI1); 
NEXT 
IF 10 = 22 OR 10 = 66 THEN 10 = 10 - 
22: GOTO S10 
IF NF — 10 € 23 THEN 510 
NL = NF — 10 - NL: IF NL > 22 THEN NL 


= 22 
10 + 22: VTAB 2: GOTO 420 
= 1: UTAB 2: HTAB 8: PRINT ILSFSCN 
N + 10)2N0$ 
REM --— Choix utilisateur —--- 
POKE - 16368,0 
X = PEEK ( —- 16384): 
540 

IF X 
IF 
IF 


10 
NN 


IF X 128 THEN 


136 
138 
139 
141 
149 
224 


THEN  GOSUB 
THEN  GOSUB 
THEN  GOSUB 
THEN 840 

THEN  GOSUB 
AND X € 251 


710 
680 
660 


730 
THEN X = X - 


VHUUNH 


196 
19B 
208 
211 


THEN GOSUB 770 

THEN  GOSUB 780 

AND 10 > O THEN 830 

AND NF > 10 + 44 THEN 800 


nl 
X 
WUM 


1 THEN 820 
MU = — 1:NI = 22:PU = 
UB 90: RETURN 
IF NN = NF - IO0O THEN RETURN 
IF NN = 44 THEN X = 211: RETURN 
MU = I:NI = 23:PU = 2:PH = 47: GOSUB 
90: RETURN 
IF NN < 23 THEN  RETURFY4 
MU = — 22:NI = 0: GOSUB 90: 
1F NN > 22 THEN RETURN 
IF NF — I0 < 23 THEN RETURN 
MU = 22: IF NN + PV D NF — 10 THEN R 
ETURN 
0: GOSUB 90: RETURN 
1 - NN:NI = 0: GOSUB 90: RETURN 
NF - NN — 10: IF NF > 44 + 10 TH 
EN MU = 44 —- NN 
NI 0: GOSUB 90: RETURN 
IF 10 > 66 THEN 530 
10 10 + 44: HOME : GOTO 410 
IF 10 = O0 THEN RETURN 
1G = 10 - 44: HOME : GOTO 410 
NN = NN + 10: POKE - 16368,0: TEXT : 
HOME 
FOR 1 = LEN <F$CNN)} TO 1 STEP - 1 
5: IF MIDS CFSCNN),1,12 < >  CHRS 
C160) THEN LP = 1: POKE 923,LP: G 
OTO 870 
NEXT 
FOR 1 = 1 TO LP: POKE 923 + 1, ASC « 
MIOS CFSCNN)D,1,12): NEXT 
IF LE = 1 THEN PRINT : UTAB 12: PRI 
NT ‘Insérez la disquette programme 


23:PH = 7: GOS 


RETURN 


A NN. 


| 


x 


REF ent 


65 


PRIE Tele es 1 vel. 


890 


en Di puis faites ‘’Return’";: GET 
2$ 
PRINT R$SDS$"RUN "PG$°,Dji" 





Programme DEMO 


10 D$ = CHR$ (4):B$ = CHR$S (7) 
20 ONERR GOTO 40 
30 GOTO 120 
40 CALL 768: POKE 216,0 
50 Y = PEEK (222): IF IP = 2 THEN PRINT 
OS"PR£O" 
60 PRINT D$"CLOSE "FI1$%: ONERR GOTO 40 
70 IF Y = 5 THEN INVERSE : PRINT “FIN D 
E FICHIER": NORMAL :F = I: GOTO 28 
(e 
80 IF Y = 6 AND F = 1 THEN HOME : PRINT 
B$'"Erreur: ce n’est pas la disque 
tte programme!": PRINT :NL = 1: GO 
TO 280 
90 IF Y = 6 THEN PRINT B$'Erreur: Île fi 
chier “FI1$: PRINT "n’est pas sur c 
ette disquette.°: GOTO 160 
100 IF Y = 8 THEN HOME : PRINT B$"Ferme 
z ta porte du lecteur de disq.SUP! 
"33: G 2%: PRINT : RESUME 
110 HOME : GOTO 280 
120 LP = PEEK (923): FOR I = 1 TO LP:FI$ 
= FI1$ + CHR$ © PEEK (923 + 1)}: 
NEXT 
130 COL = PEEK (9):1P = PEEK (10): IF 3 
P = 2 THEN COL = 40 
140 1F COL = 40 THEN PRINT CHRS$ (12); 
CHR$S (21): REM Désactive carte 
80 col. 
150 HOME : HTAB INT €CÇCCOL - 9 - LP) / 2 
>: INVERSE : PRINT * FICHIER ‘FIl$: 
NORMAL : POKE 34,1 
160 NL = PEEK (8): PRINT : IF NL = 1 THE 
N PRINT “Insérez la disquette fic 
hier en D°NL: PRINT "puis appuyez 
sur ‘return’°: GET 2$: PRINT 
570 PRINT OS"VERIFY"FIS$",D°NL 
180 IF IP = 2 THEN PRINT “Imprimante pr 
ète ?°;: GET 2%: PRINT : PRINT D$° 
PR£1° 
190 PRINT : HOME : PRINT D$"OPEN"FIS",0° 
NL 
200 PRINT D$"READ'FI1$ 
210 & INPUT À$: PRINT AS: IF PEEK (37) 
{ 22 OR IP = 2 THEN 210 
220 PRINT D$: INVERSE : PRINT °‘RETURN’= 
CONTINUER OÙ ’ESC’=ARRETER: ° ;: NO 
RHAL 
230 POKE - 16368,0 
240 = PEEK € —- 16384): IF Z € 128 THEN 
240 
250 IF 2 = 155 THEN PRINT :F = i:Y = 0: 
GOTO 60 
260 IF Z = 141 THEN PRINT : HOME : GOTO 
200 
270 GOTO 230 
280 POKE - 16368,0: IF NL = 1 THEN PRI 
NT “Insérez disquette programme en 
D1 puis ";: IF COL = 40 THEN PRI 
NT 
290 PRINT °"’RETURN‘’ pour revenir au menu 
"js GET 2$: PRINT 
300 IF PEEK € —- 16353) < 128 THEN PRIN 
T DS$"PR£3": REM Si 80COL pas e 
n fonction, le comnuter 
310 TEXT : PRINT D$"RUN MENU,DI” 





IDENT. APPLE 


02D4- 08 78 
02D8- EO 8D 
O2E0- D1 02 
02E8- AD 00 
02F0- CO AD 
02F8- 06 DO 
0300- AD 13 
0308- 30 22 
0310- 00 00 
0318- DO F2 
0320- B9 A2 
0328- F7 6B 
0330- 03 4C 
033B- 03 4C 
0340-— 03 4C 
0348- 03 AD 
0350- 18 AD 
0358- 10 AD 
0360- 08 AD 
0368- 38 AD 
0370- DO 02 
0378- A1 03 
0380- FO 04 
0388- AD 00 
0390- AD 80 
0398- D8 CD 
O3A0- CO 28 
0388- 8D 03 
03B0- OC C9 
03B8- AD 00 
03C0- 38 B0O 
03C8- 02 CO 
ROUTINES 
#300 . 39B 
0300- 68 A8 
0308- 48 40 
0310- D9 03 
0318- 11 00 
0320- 01 00 
0328- D8 00 
0330- 91 FE 
0338- 68 A4 
0340- A9 4C 
0348- F6 03 
0350- C9 84 
0358- Bi 00 
0360- 85 85 
0368- FO 1E 
0370- 14 BD 
0378- O1 CA 
0380- A2 8D 
0388- A2 00 
0390- 03 20 
0398-— DO 03 
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Voici un petit programme écrit en as- 
sembleur, d'une grande utilité, qui 
vous intéressera sans doute. Îl per- 
met de rechercher dans un tableau 
de chaînes, les chaînes compoitant 
un mot ou groupe de signes alpha- 
numériques particulier. La réponse 
est fournie instantanément”. 


Programme de démons- 
tration 


— Îl charge le sous programme en 
langage machine RECHERCHE 
OPJ 


— ]l| crée un tableau A$ de 500 
groupes de 5 lettres choisies aléatoi- 
rement, précédant les numéros d'or- 
dre (ce tableau peut être plus impor- 


Recherche dans un tableau 


tant et occuper toute la mémoire 
disponible. Dans ce cas il serait bon 
d'adjoindre le “FREE” rapide, pro- 
posé dans Porn's 2, afin d'accélérer 
le chargement du tableau). 


— Îl demande l'expression à recher- 
cher. Cette expression peut être plus 
grande que les chaînes stockées et 
peut comporter des signes ”’=”" pour 
remplacer les lettres inconnues. 

— Ïl stocke à partir de l'adresse 
$9500 l'expression à rechercher. 

— Îl stocke à l'adresse $0A la lon- 
gueur de l'expression à rechercher. 

— Îl appelle la routine assembleur si- 
tuée en 768 ($300). Cette routine af- 
fiche alors toutes les chaînes conte- 
nant l'expression. 


Jean et Patnce Neveu 


— Pour une nouvelle demande ap- 
puyer sur une touche. 

— Pour sortir, appuyer sur RETURN 
lorsqu'une nouvelle expression est 
demandée. 


Le tableau A$ a été choisi arbitraire- 
ment. Si pour des raisons spécifi- 
ques, la recherche se faisait dans 
d'autres tableaux, ïil suffirait de 
POKEr les adresses $301 et $305 
pour initialiser le nom du tableau 
concerné (code ASCII de la première 
lettre en $301. code de la deuxième 
lettre + $80 en $305). 


La routine Recherche Text a été 
assemblée à l'aide de LISA 2,5. Les 
notes figurant sur le listing en expli- 
quent le déroulement. 








Programmme RECHERCHE DEMO Le + PEEK © — 16336):A8 = *": NEX 
1 REM RECHERCHE DEMO 105 VTAB 15: HTAR 34: PRINT * CR’ 
2 REM LE 16 AOÛT 1984 POUR 
3 HIMEM: 38144 
4 TEXT : POKE 33,40: HOME : INVERSE : HT ARRETER": POKE 33,33 
AB 14: PRINT "RECHERCHE DEMO": NOR | 110 HOME 
MAL : POKE 34,5 318 INPUT "EXPRESSION À RECHERCHER ? ";A 
6 PRINT CHR$ (4)"BLOAD RECHERCHE OBJ" $ 
10 PRINT : PRINT “PATIENTEZ QUELQUES INS | 315 1F AS = ‘" THEN 400 
TANTS S.V.P.JE CREE 500 CHAINES | 320 FOR 1 = 1 TO LEN (AS): POKE 38143 + 
Le 1, ASC € MIDS CAS ,1,13): NEXT 
100 OIM A$(506): FOR 1 = O0 TO 500: FOR J | 330 POKE 10, LEN (AS) 
= 1 TO S:A$ = AS + CHRS (65 + R | 340 CALL 768 
ND (13 æ 26): NEXT :ASCI) = AS + " | 350 GET 24: PRINT : GOTO 310 
" + STRS CI):XX = PEEK ( - 1633 | 360 END 
D'ELEMENTS DANS TABLEAU BAS 
Source Lisa 2.5 13 LGELEM EPZ #18 : LONGUE 
Programme RECHERCHE TEXT UR DE L'ELEMENT 
14 ADELEB  EPZ $1E :ADRESS 
ie E DE DEBUT DE L’ELEMENT BAS 
2 ORG $300 15 ADELEH  EP2 $IF ‘ADRESS 
3 NOMI EPZ $é ;1ERE L E OÙ DEBUT DE L’ELEMENT HAUT 
ETTRE DE LA VARIABLE À RECHERCHER 1é CELEM EPZ #$CF ; COMPTE 
4 NOM2Z EPZ #7 ; 2EME L UR ELEMENT 
ETTRE DE LA VARIABLE A RECHERCHER 17 CLET EPZ $CE ; COMPTE 
S ADTABB  EPZ #8 :ADRESS UR DE LETTRE 
E BASSE DU TABLEAU 18 LGELMI  EPZ $ED 
6 ADTABH  EPZ 59 ADRESS 19 ADELB1  EP2 $EE 
E HAUTE DU TABLEAU 20 ADELHI  EP2 $EF 
7 LONG EPZ $A : LONGEU 21 INUFLG  EPZ #32 
R DE LA CHAINE RECHERCHEE 22 COUT EQU #FDED ;AFFICH 
8 ARYTAB EP2Z 568 ; EMPLAC AGE DES LETTRES 
EMENT DE L'ADRESSE OÙ TABLEAU 23 CROUT EQU $F02E ; RETURN 
? LTE EPZ 518 ; LONGUE 24 STOCK EQU #9500 ;: CHAINE 
UR TABLEAU BAS À RECHERCHER STOCKEE EN 59500 
16 LTH EPZ #19 ; LONGUE 25 ; 
UR TABLEAU HAUT 26 ; 
1i NELEMH ‘ EP2Z $EE ;NOMBRE 27 ; 
D'ELEMENTS DANS TABLEAU HAUT 28 ; 
12 MELEME EP2 #EC ;MOMERE 29 ; PROGRAMME DE RECHERCHE 
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30 ;POUR UN TABLEAU DE CHAINE À$ 103 ; 
31 ;AVEC SEULEMENT 1 DIMENSION 104 ;LONGUEUR DE L’ELEMENT 
32 ; 105 ; 
33 LOA #41 106 LONGE LOY #50 
34 STA NOM! 107 LONGEL  LDA (ADTABB).Y 
35 LOA #80 10 STA LGELEM 
36 STA NOM2 109 ; 
37 ; 110 3ADRESSE DEBUT DE L’ELEMENT 
38 ;ADRESSE DU DEBUT DES TABLEAUX Pit à 
39 ; 112 INY 
40 LDA ARYTAB 113 LDA (ADTABB) ,Y 
41 STA ADTABB 114 STA ADELEB 
42 LDA ARYTAB+1 115 INY 
43 STA ADTAEBH 116 LDA (CADTABE),Y 
44 ; 117 STA ADELEH 
45 ;VERIFICATION OÙ NOM 118 ; 
dé ; 119 INY 
47 NOM LDX #0 120 LDA (ADTABB) ,Y 
43 LODA CADTABB,X) 121 STA LGELMI 
a9 CMP NOMI 122 ; 
51 LOY ##1 124 LDA (ADTABE) ,Y 
52 LDA CADTABB) ,Y 125 STA ADELRI 
53 CMP NOM2 126 ; 
sq BEQ NBELEM 127 INY 
S St; 123 LDA (CADTABB) ,Y 
56 ;LONGUEUR DU TABLEAU 129 STA ADELHI 
S7 ; 130 ; 
58 LGTAB INY 131 ;DEPLACE ADRESSE DEBUT ELEMEMT 
59 LOA (ADTABB) ,Y 132 : 
60 STA LTB 133 LE 
él INY 134 LDA ADTABB 
62 LDA (ADTABRB) ,Y 135 ADC #93 
63 STA LTH 134 STA ADTABB 
64 ; 137 BCC CONTI! 
65 CALCULE ADRESSE NOUVEAU TABLEAU 138 INC ADTAGH 
6é ; Re Ce 
6? CEC 140 3;LECTURE DES ELEMENTS 
6B LOA ADTABE 141 ; 
69 ADC LTB 142 CONTI EQU + 
70 STA ADTABB 143 ; 
71 LDA ADTABH 194 3;VERIFIE SI L’ELEMENT EXISTE 
72 ADC LTH 145 ; 
73 STA ADTABH 146 LOA LGELEM 
74 JMP NOM 147 REG ELEM 
75 : 148 : 
76 ;NOMBRE D'ELEMENTS DANS TABLEAU 149 ;RECHERCHE LA CHAINE STOCKEE EN 
77 ; 150 : 5200 DANS LA CHAINE EN QUESTION 
7B NBELEM  LOY #$5 151 ; 
79 LDA (ADTABB) ,Y 152 LOY ##00 ; COMPTE 
se STA NELEMH UR DANS LE MOT CIBLE 
B1 INY 153 LDX ##00 ; COMPTE 
2 LOA {ADTARE) ,Y UR DANS LE MOT RECHERCHE 
83 STA NELEMB 154 ; 
84 ; 155 COMP LDA STOCK,X 
85 3;ENLEVE 1 AU COMPTEUR CAR LA 156 CMP ‘= : CARACT 
838$ :JUSQU'AU NUMERO 0... ERE GENERIQUE 
e7 ; 157 BEQ BON 
88 CLC 158 CMP (ADELERB) ,Y 
39 DEC NELEMB 159 BNE PLULOIN 
76 BCC CONT 150 EON INX 
91 CLC 141 CPX LONG 
2 DEC NELEMH 162 BCS EDITI 
93 ; 163 INY 
94 CONT EQU + 164 CPY LGELEM 
95 ; 155 BCS ELEM 
96 ;DEPLACE L'ADRESSE TABLEAU f&Z JMP COMP 
97 ;AU DEBUT DES ELEMENTS MER Ts 
98 ; 168 PLULOIN INY 
99 CLC 169 CFY LGELEM 
100 LDA ADTABB 176 RCS ELEM 
101 ADC #87 171 LDX ##00 
102 STA ADTABB 172 M8 COMP 
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1723 195 LDY>CLET 

174 ;STOCKE LE COMPTEUR DE LETTRES 197$ INY 

175 ; 197 ; 

176 EDIT! LDY #500 198 :VERIFIE SI DERNIERE LETTRE 

177 EDIT STY CLET 199 : 

REA 200 CPY LGELEM 

179 -2LIT. LA LETTFE 201 PEQ ELEMI 

180 ; 202 JMP EDIT 

181 LDA (ADELEB) ,Y 203 : 

Feat 204 :PASCE À L'ELEMENT SUIVANT 

183 3AJQUTE 380 AU CODE ASCII 205 : 

184 ;PQUR EVITER LE FLASH 206 ELEMI JSR CROUT 

185 ; 207 ELEM LDA NELEMB 

1 8é ÉLÉ 208 BNE LGEL 

187 ABC 8580 209 LDA NELEMH 

188 ; 210 BEQ FIN 

189 ;ENVOIE AL SOUS-PROGRAIME AFFICHAGE 211 DEC NELEMH 

196 5 212 LGEL DEC NELEMB 

191 J&R COUT 213 JMP_ LOMGE 

ane 214 FIN RTS 

173 ;INCREMENTE LE COMPTEUR DE LETTRE 215 END 

194 ; 
03283- 95 17 13 AS 08 65 {8 9S 9380- F0 3F A0 00 A2 00 &0 00 

RECHERCHE OBJ 0330- 08 AS 07 65 17 35 Q9 4C 0228- 75 C9 30 FO 04 O1 1E DO 
0339- 10 03 A0 CS Bi 09 35 E8 0390- GD E3 Ed CA B0 12 C3 Ca 
0340- Ca 8 03 95 EC 13 Co EC 0373- 10 BO 24 4C 3é 03 C3 Ca 

«300. 300 0348- 90 03 13 CS EB 18 A5 03 02A0- 10 80 1€ A2 00 4C 86 03 
0350- 69 07 35 08 A0 00 BI 03 0348- A0 00 3934 CE Bi 1E 18 49 

0300- A9 41 85 046 A9 60 25 07? 0358- 95 iD C8 BI 08 95 1E CS 0380- 80 20 ED FO A4 CE CB Ca 

0303- AS 5B 25 08 AS &C 25 09 0360- 91 0® 25 1F C3 81 08 25 03B8- 10 F0 03 4C Aa 03 20 SE 

0310- A2 00 A1 03 C5 0é DO 08 0368- ED C2 81 03 25 EE C3 Bi 03C0- FD AS EC DO 06 AS EB FO 

0318- A0 01 81 08 CS 07 FO IA 0370- 09 35 EF 18 AS 02 4? 02 03C3- 07 C$ EB Cé EC 4C 54 03 

0320- Ce 81 08 65 18 C3 81 08 0373- 35 02 ?0 02 ES 07 nS 1D 02D0- 60 





m.b.d.c. informatique 
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Micro-Informations 


Jean-Michel Gourévitch 


L'’Apple //e devient un Apple //c. 
Comme Pom's l'avait annoncé à ses 
lecteurs dans son numéro 16. le 
65C02 devient dorénavant le stan- 
dard de la famille Apple À partir 
du mois de mai, les nouveaux Apple 
{Je vendus. intègreront le processeur 
65C02, qui équipait déjà le //c, et 
des ROMs supplémentaires (notam- 
ment un nouveau jeu de caractères 
comprenant les caractères souris et 
un moniteur assurant la gestion des 
fenêtres et du curseur). Un kit vendu 
moins de 1000 francs permettra aux 
possesseurs d'anciens //e de les met- 
tre à niveau. À première vue. il s'agit 
donc bien d'un abandon de ce qui 
était jusqu'alors le standard de l'Ap- 
ple //e. Devant le dilemne du pro- 
grès. la firme de Cupertino a dû 
abandonner un peu de terrain au 
chapitre de la compatibilité 

Ainsi, les programmes qui tournaient 
difficilement (ou pas du tout) sur le 
/Ic ne tourneront, hélas, pas mieux 
sur le nouveau //e; aucun ‘’switch” 


Computer 3 


ne permet de sélectionner un mode 
ou l'autre 


Toutefois, on précise chez Apple que 
les indéracinables du //e pourront 
laisser en place l’ancienne ROM de 
caractères, tout en changeant les 
autres, rien n'empêche de program- 
mer une ROM contenant les deux 
jeux de caractères qui seraient alors 
modifiables par logiciel 


La seconde nouveauté concernant 
l'Apple //e était annoncée dans le nu- 
méro 17 de Pom's. Il s’agit du chan- 
gement du clavier Le nouveau //e 
bénéficie donc d'un clavier compara- 
ble à celui du //c. Ainsi, lorsqu'on en- 
clenche la touche ‘’Majuscules”, on 
peut, comme sur une machine à 
écrire standard, taper directement les 
chiffres Techniquement. le shift lock 
est remplacé par un caps lock. 

D'autre part, le nouveau clavier du 
Île n'est plus QWERTY. Sous le cla- 
vier de l'ancien //e, un interrupteur 
permettait d'obtenir à gauche. un 


clavier français aux touches AZERTY, 
et à droite. un clavier QWERTY Cet 
interrupteur existe toujours sur le 
nouveau //e. Mais lorsqu'on le bas- 
cule vers la droite, on obtient seule- 
ment les caractères du genre ”[” ou 
”]", impossibles à obtenir en français. 
Les amateurs de jeux américains 
dont les commandes sont disposées 
au clavier, selon un ordre pratique, 
apprécieront 


Un exemple 

Sur le simulateur Flight Simulator Il, 
la touche ‘’<” permet de régler la 
valeur d'un instrument à la baisse, et 
>" d'augmenter la valeur. Sur le 
clavier américain, ces touches sont 
voisines. Sur un clavier AZERTY, il 
faut à chaque fois actionner la tou- 
che majuscule pour passer du ”<” 
au >" 


Pourquoi donc ces modifications ? 
Parce qu' Apple souhaite la standar- 
disation, et la firme de Cupertino 
voudrait encourager les auteurs de 


3.rue Papition 75009 Paris - Tél. 523.51.15 


Alimentation 

Boitier et clavier... Data stress 
Clavier détachabie (type MAK 2) 

Clavier détachable (STAFF) 


Moniteur 12° vert 
Moniteur couleur 
Base orientable pour moniteur 


Lecteur disquettes 5° 1/4 distar 


Contrôleur de drive 
Carte langage 16K RAM 
Carte 128 K RAM 

Carte Z80 CP/M 


Carte 80 colonnes (inverses et majuscules) 640 
950 


Carte couleur RVB (2 +) 
Carte couleur RVB (2e) 
Carte 80 col + 64 K {2c) 


Carte imprimante 
Carte Grappler 


Carte Grappler + Buffer 16K 


Interface série 


Interface supersérie 


Joystick Métal 2 +, 28-2c (préciser) 


Ventilateur 
Pince à disquette 


Ruban impr. Dot Matrix Apple, NEC 8 


Disquettes SF/DD la boîte de (10) 
Disquettes SF/DD 10 boîtes de (10) ls boîte 85 
Boîte de rangement pour 100 disquettes... 199 


COMMANDE 


a8333 


odS 8388 
OUUD OOOÛ HU 


100 


RÈGLEMENT PAR:CCP 


Ne 


CHÈQUE BANCAIRE 


CARTE BLEUE 


DATE D'EXPIRATION 
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logiciels à recourir à l'arsenal des 
menus déroulant, fenêtres, et icônes 
en vigueur sur le Macintosh. Les 
nouvelles ROMSs et le 65C02 permet- 
tront aux utilisateurs de booter 
depuis un disque dur. d'écrire des 
programmes Basic en minuscules et 
majuscules, d'utiliser un code plus 
serré. tout en utilisant les multiples 
fenêtres, et un meilleur contrôle du 
curseur. Reste à voir si cela sera suf- 
fisant pour dissuader les dévelop- 
peurs d'abandonner le //e pour le 
Mac. En attendant, les nouveaux 
programmes ne sont pas légions. 


Une vieille connaissance 


C'est l'AppleWriter // qui nous re- 
vient de loin. Fonctionnant sous 
ProDOS, il peut désormais bénéficier 
du disque dur. Il permet d'écrire un 
texte dans n'importe quel ordre, de 
le mémoriser par paragraphe et de 
limprimer dans l’ordre choisi. 

Grâce à un module de communica- 
tions, on peut recevoir des données 
d'une messagerie, ou d'un autre 
Apple, et les intégrer dans un texte. Il 
est distribué par Apple pour moins 
de 1800 francs. 


Toujours distribué par Apple, le 
ruban à trois couleurs superposables 
offre à l'imprimante Scribe, une im- 
pression en couleurs avec notam- 
ment les logiciels Dazzle Draw, Koala 
Pad, … Un ruban devrait suffire pour 
imprimer une dizaine de pages en 
mode graphique. Son prix est de 72 
francs. 


Devine quoi diner 


Random Dining de Solitaire génère 
une série de menus (3 repas par jour 
pendant un maximum de 31 jours), 
et fournit la liste des ingrédients. Un 
seul petit problème: c'est au goût 
américain ! 

Un autre programme: The Ultimate 
Shopping Machine est fourni en 
prime et permet d'obtenir une liste 
imprimée des courses à effectuer au 
supermarché. Vous pouvez vous pro- 
curer l'ensemble pour 50 dollars. 


Un copieur conforme 


C'est la version 50 de Copy H plus 
de Central Point. Un bitcopieur auto- 
matique capable de surmonter quel- 
ques systèmes de protection. Les pa- 
ramètres sont stockés sur le disque. il 
suffit de taper le nom du programme 
pour lui adapter les paramètres. 
Combien de temps faudra-t-il pour 
que les logiciels lui résistent et que 
Central Point sorte une nouvelle réui- 
sion de Copy Il plus ? Cette nouvelle 
version vaut 49 dollars 


CP/M pour le //c 


C'est aujourd'hui possible grâce au 
Z80c d'Applied Engineering. Un mo- 
dule qui s'installe à l'intérieur d'un 
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ordinateur qu’on croyait pourtant 
fermé”. !l peut profiter des 128 Ko 
de l'ordinateur, ou n'en utiliser que 
64, en réservant le reste comme 
RAM disk. Il est livré avec la version 
40 de CP/M, le Z80c, coûte, outre 
Atlantique 160 dollars 


De la mémoire 


Combien vous en faut-il? Un mé- 
gaoctet vous suffirait-il? Alors, la 
carte RamWorks d'Applied Enginee- 
ring est pour vous. Celle-ci sera no- 
tamment reconnue par Appleworks, 
Advanced Vlsicalc., FlashCalc, et bien 
d'autres. Elle accélère la vitesse 
d'exécution des programmes. Pour 
1200 dollars. on en attendait pas 
moins ! 


Un jeu de cartes. 


Trois cartes en une, qui dit mieux ? 
C'est la Business Card de Street 
Electronics. Elle regroupe deux inter- 
faces séries (pour disposer à la fois 
de l'imprimante et du modem). une 
carte horloge, et des possibilités de 
recopie automatique d'écran graphi- 
que. Elle est compatible avec Apple- 
Works, Apple Access//, et surtout 
avec MousePaint (les spécialistes ap- 
précieront: c’est le programme le 
plus difficile à interfacer avec une im- 
primante), la Business Card coûte 
moins de 200 dollars. 


Un vrai clavier. 


Pas besoin d'acheter un nouvel 
Apple //e pour avoir le clavier vendu 
par Pentasonic. 78 touches dont un 
vrai pavé numérique, les majuscules 
et minuscules comme sur une ma- 
chine à écrire (la touche CAPS 
LOCK dispose du voyant LED qui 
fait tellement défaut sur l'IBM), les 
fonctions Pomme Ouverte et Fer- 
mée, et l'autotest propres aux 
Apples : quel luxe ! Et en plus, il est 
inclinable pour un prix de 1273 
francs. 


Et le Mac ? 


Compatible avec ‘Apple //, compati- 
ble avec l'IBM, accédant, grâce au 
menu pornme, au multi-tasking c'est 
vraiment la fête de Macintosh. 


Mac = Apple // 


Pendant que certains développeurs 
essaient de transformer l'Apple Il en 
Macintosh, David Hemmo a réussi à 
transformer le Mac en un Apple. Un 
Apple 1I+ pour le moment. Suppor- 
tant donc seulement 48 Ko de mé- 
moire et des programmes en DOS 
3.3. Grâce à David Hemmo, le pro- 
cesseur 68000 du Mac, émule le 
6502 de son cadet Une prochaine 
version permettra de bénéficier du 
ProDOS et des caractéristiques (et 
surtout des programmes) du //e. Ima- 


ginez qu'on peut récupérer les dis- 
quettes du // sur les disquettes 3,5 
pouces du Mac. C'est assez simple : 
on charge le logiciel dans l'Apple Il, 
on relie le Macintosh à l'Apple Il par 
la sortie RS 232 (série) reliée à l’en- 
trée Modem du Mac. puis on trans- 
fère les programmes. Il ne reste plus 
qu’à les enregistrer sur une disquette 
de 3,5 pouces. Ensuite, on pourra 
“jouer” ces logiciels sur le Macintosh. 
Il paraît que Steve Jobs avait juré 
que la chose était impossible. 


Mac = IBM 


Cette fois. c'est en IBM que le Mac 
se transforme grâce à Mac Charlie de 
Dayna Communications. "Etonnant 
ce qui entre dans Macintosh ces 
temps-ci. Les logiciels IBM PC, par 
exemple” proclame, non sans hu- 
mour, la publicité de ce produit. 

En bref, il s’agit d'un complément 
“hard” au Macintosh. Une base et 
surtout un prolongement de la partie 
droite de l'Apple, parfaitement dans 
le style et la couleur du Mac. La par- 
tie droite qui élargit le Macintosh 
d'un bon tiers contient les proces- 
seurs, 256 Ko de RAM extensibles à 
640, et un drive pour disquettes de 5 
pouces 1/4 (on peut rajouter un se- 
cond lecteur). Oui, diront les spécia- 
listes, tout ça est bien, mais l'IBM PC 
dispose d’un clavier bien spécifique, 
qui n’a rien à voir avec celui du Ma- 
cintosh. Vous n'avez encore rien en- 
tendu, car Mac Charlie contient aussi 
un clavier, dans lequel on emboîte 
celui du Mac. On dispose alors à 
gauche des touches de fonctions, et 
à droite d'un pavé numérique (égale- 
ment utilisable en mode Macintosh). 
C’est bien le moins, car Mac Charlie 
reviendrait à quelques 1895 dollars. 
Soit le prix aux Etat Unis d’un 
compatible bien équipé. Dommage 
qu'on n'ait pas encore pensé au gad- 
get transformant un [IBM PC en Ma- 
cintosh. Chez Apple, qui a dû procé- 
der en février à un chômage 
technique pour cause de stocks trop 
important, on apprécierait.. 


Des programmes comme s’il en 
pleuvait 


Il est bien fini le temps où les logji- 
ciels pour Macintosh étaient aussi 
rares qu'un rayon de soleil, â Paris. 


À remarquer d'abord, le Switcher. 
Ce programme est développé par 
Apple et permet de faire tourner si- 
multanément jusqu'à quatre applica- 
tions sur un seul Macintosh 512 Ko. 
Comment ? Le logiciel partitionne la 
mémoire en quatre, on peut définir 
là mémoire nécessaire à chaque ap- 
plication. Ainsi, en se limitant à trois, 
il est possible d'avoir une application 
de 256 Ko, si elle requiert beaucoup 
de RAM. On choisit, au début de la 
séance, la mémoire utile à chaque 
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appiication puis on charge l'applica- 
tion en mémoire. 

Une double flèche s'installe alors 
dans le coin supérieur droit de 
l'écran. Un clic sur la flèche et on 
bascule sur l'application suivante. La 
version finale permettra de transférer 
le presse papier d'une application à 
l’autre. Le prix de ce programme ? Il 
devrait être gratuit, distribué avec les 
Macintosh comme le Finder, et offert 
aux possesseurs actuels. Ce pro- 
gramme exige 512 Ko. 


Aux Etats Unis, Centa System pro- 
pose la transformation d'un Mac 128 
Ko en 512 Ko pour 350 dollars. 
C'est environ trois fois moins cher 
qu'en France pour la greffe officielle 
de mémoire. Un scandale non ? 


Mass Tech propose la même trans- 
formation pour 379 dollars. Mais, 
offre surtout une greffe portant la 
mémoire à 1 mégaoctet pour 995 
dollars. Un méga, de quoi rêver 
non ! Autant que le Lisa (pardon Ma- 
cintosh XL) mais avec la compatibi- 
lité en plus (actuellement, Macintosh 
XL n'est pas parfaitement compatible 
avec ses petits frères, et déforme no- 
tamment l'image de l'écran, en refu- 
sant d'absorber certains programmes 
en émulation avec MacWorks) Le 
Mac à un méga est déjà là, et ce 
n'est qu’un début. 


Deux traitements de textes 


Jusqu'à maintenant, les utilisateurs 
de Macintosh devaient se contenter 
de MacWrite. Un logiciel facile, per- 
mettant une vision exacte à l'écran 
de ce qui sera imprimé, mais limité, 
notamment par ses possibilités d'im- 
pression. Voici donc deux bonnes 
nouvelles. 


D'abord, la sortie aux Etats Unis (et 
bientôt chez nous) de Ja version 4.3 
de MacWrite. Elle permet d'imprimer 
sur un Mac 512 Ko quelques 250 
pages (à condition que ce document 
n'incorpore pas plus de 2047 passa- 
ges à la ligne par la touche Retum, 
et qu'il y ait suffisamment de place 
sur la disquette pour l'accueillir). Le 
texte ne réside plus en mémoire, 
mais est chargé depuis la disquette 
au fur et à mesure des besoins. En 
plus des perfectionnements annoncés 
dans le numéro 17 de Pom's, le 
nouveau Macwrite offre la possibilité 
d'imprimer un document en le rédui- 
sant de 50%: et un nouvel accessoire 
de bureau permet de choisir son im- 
primante, adapté au réseau local Ap- 
pletalk et à l'imprimante Laserwriter. 


L'autre nouveauté, c'est la sortie offi- 

cielle de la version finale de Word de 

Microsoft. Un traitement de textes 

qui répondra aux besoins de tous les 

professionnels; on peut : 

e disposer simultanément 
maximum de quatre 


d'un 
fenêtres, 


contenant chacune un document 
e coller sans problème des mor- 

ceaux de textes entre documents. 
Il existe un glossaire. et la taille des 
d'umerts est illimitée. 
On peut aussi réaliser des notes de 
bas de pages. automatiquement nu- 
mérotées. ou écrire en colons. 
Toutes les commandes (même la 
taille des caractères) sont doublées 
par des séquences de touches au cla- 
vier. Les documents MacWiite sont 
utilisables dans Word. Ajoutons que 
le programme dispose en plus de la 
possibilité d'opérer fusions de lettres 
et mailings. Très très impressionnant. 
Un must pour les utilisateurs sérieux. 


Journaux électroniques 


Îl n'a pas fallu longtemps pour cons- 
tater que le Macintosh. particulière- 
ment dans son association avec l'im- 
primante Laserwriter. permettait de 
réaliser des journaux et lettres pério- 
diques sans problème. Dans le précé- 
dent numéro nous vous présentions 
MacPublisher. Voici encore Keady 
Set Go de Manhattan Graphics. basé 
sur une habile utilisation de Mac- 
draw. Très facile à utiliser pour 125 
dollars. 


Un Macintosh en couleurs ? 


Sur papier, seulement. Grâce au logji- 
ciel Cofer Print importé par BIP. Un 
jeu de trois rubans (rouge jaune et 
bleu) se substituent au ruban original 
de l'imprimante Imagewriter. La cou- 
leur à part du Macintosh pour 710 
francs. 


Des pommes au menu 


A la différence de Lisa en théorie, le 
Macintosh ne permet pas d'effectuer 
simultanément plusieurs tâches. Voici 
ce handicap partiellement surmonté. 
Grâce à des accessoires qui s'instal- 
lent dans le menu Pomme. Vous 
avez déjà. en standard. sur tous les 
logiciels l'heure, une calculatrice bien 
rudimentaire, l'album... Voici que de 
nouveaux accessoires peuvent s'y 
installer facilement. Comment ? 
Grâce au Desk Accessory Mover 
(DAM) qui permet de rajouter, d'en- 
lever, ou de débaptiser des accessoi- 
res aussi facilement que de changer 
un jeu de caractères avec le Font 
Mover. Ce DAM conçu par CE Soft- 
ware est vendu d’une façon inhabi- 
tuelle sous le système du Mac 
Honor. Les utilisateurs sont invités à 
en faire des copies pour leurs amis. 
Et ceux ci, s'ils souhaitent le conser- 
ver sont invités, à leur tour, à en- 
voyer au créateur la somme de 25 
dollars, ce qui donne droit aux per- 
fectionnements et aux documenta- 
tions. 


Que peut-on installer dans le menu 
Pomme? CE propose trois outils 
bien utiles: le Mockwrite, un mini 
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traitement de textes dont on peut 
disposer à tout moment (même sur 
le bureau) permet d'écrire un texte, 
de le sauver, de le retrouver. En 
outre, il possède même une fonction 
de recherche. 


Le MockTenninal, est un programme 
de communication. C'est peut-être le 
plus utile. Vous remplissez une fiche 
de CX MacBase, lorsque vous avez 
soudain besoin d'une information 
disponible sur votre banque de don- 
nées. Sans quitter le programme, 
vous cliquez sur MockTerminai dans 
le menu Pomme, vous appelez par le 
Modem la banque de données et 
vous recevez l'information. Un coup 
de copier-coller, et elle est incorporée 
à votre fiche. 


Mock Printer permet d'imprimer un 
document à n'impoite quel moment, 
même sans disposer d'un traitement 
de textes. 


Un agenda permet de noter des ren- 
dez-vous. Une calculatrice scientifi- 
que où financière peut remplacer 
avantageusement la calculette stan- 
dard. Pour les programmeurs, il 
existe une calculatrice hexadécimale. 
Un utilitaire permet de connaître en 
permanence la place encore disponi- 
ble sur un disque, ou dans la mé- 
moire centrale de Macintosh. Un 
“Executive Decision Maker” rem- 
place le pile ou face, pour vous don- 
ner un avis (hasardeux) sur une déci- 
sion à prendre. Une loupe permet 
d'agrandir un morceau de l'écran. 
Un accessoire enfin permet de pro- 
voquer l'éjection du (ou des) dis- 
quefs), et de provoquer un Reset par 
logiciel. 


Tous ces accessoires ont l'avantage 
de pouvoir être ‘invoqués” tout en 
utilisant Un programme, sans inter- 
rompre son exécution. Et ce n'est 
qu'un début. 


T/Maker Graphics propose ClickOn. 
Rien de moins qu’un mini-tableur et 
ses graphiques, cachés dans le menu 
Pomme. L'avantage est de pouvoir 
l'utiliser tout en écrivant un docu- 
ment avec MacWiite, et coller dans 
le texte le tableau et le graphique ob- 
tenu. Il en coûtera 80 dollars. 


Controle X pourrait commercialiser 
en France Art Grabber. Un acces- 
soire (toujours utilisé dans ie menu 
Pomme) qui permet simplement 
d'ouvrir (et de retoucher) un docu- 
ment MacPaint, sans avoir à ouvrir 
MacPaint quel que soit le programme 
où on se trouve, et surtout, d'utiliser 
dans tous ces environnements les 
dessins tout faits de Click Ait. 


Un seul pépin dans cette pomme : 
une fois “gonflée” de tous ces acces- 
soires, le système de la disquette oc- 
cupe une place considérable (fré- 
quemment 300 Ko). La solution 
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consiste donc à travailler avec une 
disquette ne contenant que le sys- 
tème, et une autre contenant fichiers 
et applications. Ce n'est pas facile 
quand lapplication est protégée. 
Quoi qu'il en soit, il vaut mieux dis- 
poser de 512 Ko et de deux lecteurs 
de disquettes. 


Les utilisateurs du Macintosh savent 
déjà que deux disquettes, c'est pour 
cet ordinateur un vrai minimum. 


Adresses 


Solitaire 746 West 113th Street 
Bloomington - Minnesota 55438 
Applied Engineering PO Box 798 
- Carroliton - Texas 75806 

Central Point Software 9700 S.W. 
Capitol Highway #100 Portland - 
OR 97219 

Street Electronics Corp. 
Mark Av. Caipinteria CA. 
Pentasonic 34 rue de Turin - 
75008 Paris - Tél : 293 41 33 
Dayna Communications 50 
S.Main - Salt Lake City Utah 84144 
Centa Systems 5308 Dernv Av. 
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Suite C Agoura Hills - CA 91301 
Mass Tech 451 Boston Road - Gro- 
ton - MA 01450 

JRD Orléans 11 place Ste Croix - 
45000 Orléans - Tél : (38) 54 83 30 
CE Software 801 73rd Street - Des 
Moines - Iowa 50312 

T/Maker Graphics 2115 Landings 
Drive Mounta'n View - CA 94043 
BIP 13 rue le Duc - 75018 Paris - 
Tél : 255 44 63 

Controle X Tour Maine Montpar- 
nasse - 33 avenue du Maine - 75755 
Paris Cedex 15 





Pour l’Apple // 


Techniques de programmation 
sur l’Apple Il de René Belle, Edi- 
tions du PSI - 164 pages - 95 FF 

Ce livre démontre, à l’aide d’un 
exemple complet, l'illustration de la 
programmation structurée” en Basic 
Applesoft. Le découpage en chapi- 
tres est assez clair : généralités, saisie 
des données, édition, tri et recher- 
che. Un peu léger peut-être sur le 
contrôle de sécurité: une routine 
d'INPUT généralisé travaillant en 
GET aurait été intéressante. Dans 
l'ensemble, bon pour le fond et mau- 
vaïs pour la forme : ce n'est même 
pas du MacWiite, mais du traitement 
de textes sur Apple Il avec impri- 
mante matricielle. 


Apple Logo activities par Stephen 
Devwitt, Reston - Prentice Hall - 186 
pages - $2205 

The Apple Logo workbook de 
M. Winter, Reston - Prentice Hall - 
230 pages - $16.85 

Deux livres pratiques sur le Logo 
auxquels le seul reproche que l’on 
puisse faire est qu'ils sont rédigés en 
anglais et font référence au Logo an- 
glais. Ceci dit, une simple tabie de 
correspondance permettra une trans- 
position rapide des exemples. 

Le premier s'articule principalement 
autour de questions posées à l’utilisa- 
teur en indiquant des références à 
des explications se situant dans d’au- 
tres pages. Le second, présenté en 
46 leçons bien programmées, alterne 
les explications et les exercices. Les 
deux livres sont intéressants, le se- 
cond étant un excellent guide pour 
un professeur souhartant organiser 
des cours de Logo. 


Pour le Macintosh 


Connaissez-vous Macintosh de 
Pierre Courbier, ETSF - 143 pages - 
80 FF 

Le énième livre‘en français sur Futili- 
sation du Macintosh, et qui ne ferait 
pas vingt pages s’il était composé et 
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si l'on enlevait les copies d'écran. 
Encore une fois, aucune astuce d’uti- 
lisation. Mieux vaut assister à une 
bonne démo de 30 minutes sur le 
Macintosh. 


L'outil Macintosh de Gérard Léwy, 
Eyrolles - 288 pages - 260 FF 

U y a déjà là plus de contenu que 
dans les livres semblables au précé- 
dent. Mais, quand on ‘”présente” 
plus de 30 logiciels, sans parler du 
Macintosh lui-même, en si peu de 
place, on est forcément superficiel. 
En outre, la présentation ballote 
complètement le lecteur: on passe 
d'un logiciel à l’autre sans indication 
claire de changement, il se dégage 
hélas une impression de fouillis. 


Macintosh, outils, progiciels, ap- 
plications de Xavier Gaucherand, 
Edimicro - 237 pages - 148 F. 

Un des meilleurs ouvrages dans le 
genre frelaté du livre d'initiation à 
Macintosh et à ses logiciels. Au 
moins, celui-là est composé. car 
même si MacWrite est un pro- 
gramme sympathique et l'ImageWri- 
ter une imprimante de qualité, un 
lecteur objectif peut difficilement 
trouver plaisant à lire un ouvrage ré- 
digé en MacWrite. Signalons un ef- 
fort de classement et un souci péda- 
gogique rare dans la logorrhée 
ambiante du Macintosh. 


Découverte et pratique de CX 
MacBase par Hervé Thiriez, Editions 
Controle X - 170 pages - 125 FF. 
Disquette d'accompagnement : 175 
FF. 

À la fois un excellent guide pédago- 
gique sur l'utilisation de CX MacBase 
et un recueil d'applications avec de 
nombreux tableaux expliqués dans le 
livre et prêts à l'emploi sur la dis- 


Bibliographie 


Alexandre Duback 


quette d'accompagnement. Les 
divers exemples illustrent les nom- 
breuses possibilités du programme. 
Le livre fait référence aux versions 
M10 et M20 du programme. 

La disquette comporte une version 
bridée du programme, interdisant 
l'impression ou la création de nou- 
velles fiches, mais permettant de 
mettre en oeuvre tout le reste du 
programme : un moyen économique 
de tester CX MacBase avant l'achat. 
À noter tout particulièrement : UniFi- 
che, un modèle menant à des utilisa- 
tions multiples. 


La communication 


Le guide marabout de la téléma- 
tique de Michel Poullet - 221 pages. 
Un ouvrage clair, maïs uniquement 
destiné à ceux qui souhaitent enrichir 
leur culture générale. Certains sujets, 
tels que la monnaie électronique ou 
la bureautique, n'intéressent directe- 
ment ni l’'Appleomane, ni le fana de 
la micro. De plus, on n’y trouve rien 
de spécifique à l'Apple. 

La télé-informatique personnelle 
de Jacques Bessières, Hachette Infor- 
matique - 217 pages - 145 FF. 


Voici un excellent livre sur la 
communication. En outre, comme 
l'indique le sous-titre, il s'intéresse 


aux ‘Applications aux ordinateurs 
Apple”. Clair et plein d'informations, 
cet ouvrage couvre les aspects hard 
et soft ainsi que les services. Il pré- 
sente de multiples recettes d'utitisa- 
tion. Même le célèbre Roland Mo- 
reno nous dit que c'est, pour ses 
collaborateurs, un ouvrage de réfé- 
rence. C'est tout dire. Un must 
pour les branchés. 

E 
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A Initiation à l'Assembieur (3) 
) 


Home, Sweet Home 


A 
À Un Jeu d'adresse en Pascal : 
B 


Ordraïphabetix 
ProDOS à l'essai 


La compatibilité de l'Apple //c 


Analyse de la VTOC 
B-A Bloc-notes 
B-A Impression des varlables 
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Une astuce pour supprimer les REMS 


Comparalson de programmes 
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à la fin d'un programme Basic 
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Les articles dont les titres sont en italiques, 
concernent le Macintosh. 
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Courrier des lecteurs 


Je dispose d'un Apple //e muni d'un 
lecteur de disquettes, d’une carte 
Chat Mauve et d’une carte ‘souris” 
Le programme “Disque Virtuel 16K”, 
publié dans Pom's 12, fonctionne 
très bien, maïs rien ne va plus avec 
le "Disque Virtuel 64K”, paru dans 
Pons 14 L'auteur parle de carte 80 
colonnes étendue, sans préciser la- 
quelle. La carte Chat Mauve serait- 
elle incompatible ? 

D'autre part, une petite suggestion 
pour les forts en assembleur; est-il 
possible de réaliser un patch du pro- 
gramme COPY du DOS 3.3 qui per- 
mette de faire une copie de disquette 
en une seule passe ou deux {avec un 
seul lecteur de disquettes et une 
cärte 64K) Ce n'est pas évident, 
mais je ne m'adresse pas à n'importe 
qui, que diable ! 


Régis Ringenbach - 30 Villa Chaptal 
- 92300 Levallois 


En effet, le ‘Disque Virtuel 64K" 
pose un problème, il ne protège que 
la première moitié de la page texte 
de la mémoire auxiliaire {pages 4-5, 
les pages 6-7 étant oubliées). Par 
conséquent, il faut appoiter des mo- 
difications au programme pour son 
bon déroulement. 


Patch de AUTO RWAUXINIT OBjj : 


BLOAD AUTO RWAUXINIT.OB) 
aF47. QC 

4FCB: 6C 

5065: 10 07 06 00 01 04 05:06 07 
5094: 65 

5SOAD: 05 

SOAF: 68 

BSAVE AUTO RWAUXINIT.OBJ 


Ces modifications ont été précisées 
dans Pom's 16 (p. 66). Il est à noter 
que le ‘Disque Virtuel 64K” ne fait, 
en réalité, que 505K (4K pour la 
piste du catalogue et 46.5K pour les 
données). 

En ce qui concerne la page graphi- 
que haute résolution de la mémoire 
auxiliaire, elle est correctement proté- 
gée par le disque virtuel (inhibation 
des pistes 6 et 7}. En revanche, ce 
disque virtuel est incompatible avec 
le programme PURPLESOFT de la 
carte EVE car ils utilisent tous les 
deux l'équivalent caite langage de la 
mémoire auxiliaire (adresses $D000 
à $FFFF) H serait possible de pat- 
cher le disque virtuel de la même 
façon que ci-dessus pour inhiber les 
pistes correspondantes ($11. 12 et 
13) si la piste du catalogue ($11) 
n'était précisément à cet endrour-là 
($fD000 à $E000 plus exactement}, 
ce qui oblige à remanier le disque 
virtuel. 


Olivier Herz 


Je ne pense pas qu'il suffise d'un 
simple patch pour que COPYA utilise 
les 64K de la mémoire auxiliaire et 
fasse une copie en 2 passes. C'est 
faisable, mais il s’agit d’un gros tra- 
vail, voire même d'une refonte du 
programme. En revanche, il existe 
des programmes de copie qui en 
tiennent compte actuellement, 
comme Locksmith 5.0. 


Le programme Gesmask Modifie, pu- 
blié dans Pom's 14. m'a intéressé. 
Malheureusement, j'ai été obligé de 
changer quelque peu HCT OBj, 
pour obtenir une copie d'écran cor- 
recte. J'ai une OKI 82A avec ’Uni- 
versal parallel printer interface 
PRX12 (EE PI) et j'avais les problè- 
mes suivants . 

Le n'obtenais qu'une ligne d'écran 
sur quatre: 

2-les deux dernières lignes écran qui, 
par un appel à $FDED, généraient 
un ‘plantage sans fin" 


La solution que je propose, n'est pas 
très élégante {scrolling des deux der- 
nières lignes) mais à l'avantage de 
fonctionner. Ci-dessous. le listing de 
la routine HCT OBI modifiée. 


F46S5- AFS 00 LDA £s00 
9467- 85 25 SFA s25 
94a69- Aoû 00 LOoY £s00 
S46B- 20 Ci F8 JSR sFBCi 
F46E- 81 28 t DA (8268) ,Y 
9470- c? 40 oP £s40 
9472- 80 00 BCS $9481 
9474- C9? 20 CP £$20 
9476- B0 06 BCcs $947E 
$476- 18 CLC 

7479- 69 C9 AOC £sco 
9478- 4C 81 94 JP 37481 
947E- 18 CLC 

947F- 69 80 ADC £s80 
9481- 20 ED FD JSR  $FDED 
9484- ca NY 

9485- Ca 28 CPY £s28 
9487- DO ES ENE $94d6E 
9489- A9 80 LDA £$80 
94aa8- 20 ED F0 JSR SFDED 
948E- Cé 25 DEC 325 
9a9a- AS 25 LDA 925 
9492- C9 16 CMP £sié 
9494- DO D3 BNE 99469 
9496—- A0 55 LOY £s55 
9498- Ca CE CPY $CE 
94ÿA- FO CF BEQ 39448 
94a9C- 20 70 FC JSR SFC70 
949F- 20 70 FC JSR  SFC70 
9442- A9 14 Lo £s14 
94a4- A0 ss LOY £sss 
94ñé- 84 CE STY  sCE 
9488- ac 67 94 JP $9467 
P4AB- A9 00 LDA £s00 
94AD- 85 CE STA $CE 
PAF - 60 RTS 


Olivier Fages - 61 rue Victor Hugo - 
94700 Maison Alfort. 


N'ayant pas ce matériel, il nous a été 
impossible de tester les modifications 
que vous appoitez à la routine. 


L'article STARTUP et saisie de la 
date en Pascal, publié dans Pons 


ir 
dr à: 


EL: 


EE 


d'étnt 
“ie 


lents 
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16, m'a inspiré et je vous propose 
d'obtenir le même résultat par une 
méthode beaucoup plus simple. 


1— Créer un fichier EXEC appelé 
DAT EUR : 

Depuis le niveau global taper <M> 
pour Make Exec File, le système 
vous demande NEW EXEC NAME? 
Il faut répondre DATEUR <RTN>. 
Puis le système demande TE RMINA- 
TOR =%, CHANGE IT; en répon- 
dant N, on retoume au niveau glo- 
bal. Tout ce qui est tapé sera 
enregistré dans le fichier EXEC. En- 
suite, taper F (Filer) et D (Date) et 
deux fois % pour tenniner. Le fichier 
EXEC est alors enregistré. 


2—Créer un progamme appelé 
STARTUP : 

PROGRAM ST ARTUP: 

USES CHAINSTUFF: 

BEGIN 

SET (EXEC/DATEUR'): 

END. 


Le fichier EXEC et le code du pro- 
gramme STARTUP doivent se trou- 
ver sur la disquette APPLEO ou 
APPLE sous les noms respectifs de 
DATEUR et SYSTEMSTARTUP. À 
chaque boot, le progamme SYS- 
TEMSTARTUP sera exécuté et lan- 
cera les commandes contenues dans 
le fichier EXEC. Ainsi, il suffit de ren- 
trer la date. 


Jean Philip - Chemin St Roch - 
84490 St Saturnin d'Apt 


Cette méthode ne peut fonctionner 
qu'avec la version 1.1 du Pascal 
UCSD. En effet, les fichiers EXEC ne 
sont disponibles que sur cette ver- 
sion. 


FH m'est impossible de faire fonction- 
ner le programme “Gérer la date 
ProDOS", paru dans Pom's 16. Mon 
ordinateur me répond toujours NO 
BUFFERS AVAILABLE. 


Monsieur Rambaud - 11 rue E. Roux 
- 15000 Aurillac 


D y a effectivement un problème 
avec le programme de DATE en 
ProDOS. En effet, si on fait, après 
avoir transféré DATE sur une dlis- 
quette ProDOS, un CATALOG de 
cette disquette, on voit que le SUB- 
TYPE du fichier DATE correspond à 
une adresse de chargement A$0000. 
Or, ProDOS refuse de charger un fi- 
chier en page 0 et emet donc un NO 
BUFFERS AVAILABLE après l'essai 
d'un -DATE. 

La solution est de remplacer dans le 
programme Applesoft (STARTUP par 
exemple) l'instruction PRINT 
CHR$(4)"-DATE” par PRINT 
CHRS(4)Y"BRUN DATE.A$300” 


Convertir des programmes DOS 3.3 
en ProDOS avec les programmes ac- 


compagnant le Pon's 16 pose quel- 
quæ problèmes. En effet le pro- 
gramme me répond que je ne suis 
pas sous ProDOS. 


Monsieur Blin - 37 rue Gue d'Orient 
- 95470 St Witr 


Afin de résoudre le problème, i faut 
modifier le début de la ligne 117 du 
programme Basic CQFD. Celle-ci de- 
vient : 

117 IF PEEK (48961) 

THEN... 

C'est le c du copyright Apple dans la 
page globale ProDOS ($BEFO0 — 
$BFFF) 
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Je possède une imprimante Epson 
avec une interface Shinshu Seiki Co. 
Ltd. dont je suis tout à fait satisfait. 
Malheureusement, cette imprimante 
se refuse à imprimer correctement les 
menus des disquettes Pons. C'est 
un problème soulevé par plusieurs 
lecteurs et auquel vous avez donné 
une réponse dans le numéro 15 en 
conseillant d'envoyer vers fimpri- 
mante le code permettant de suppri- 
mer l'affichage sur l'écran Malheu- 
reusement, je n'ai pas trouvé dans la 
notice de l'interface le code en ques- 
ton. 

Aussi me suis-je atmqué au problème 
à sa source. Le saut des lignes vient 
du fait que lorsque le 40ème carac- 
tère est affiché, il se produit un re- 
tour ligne automatique sur l'écran. il 
est suivi d’un deuxième retour ligne 
envoyé par le progamme. Ce der- 
nier passant ensuite à la ligne sui- 
vante se retrouve en fait sur la qua- 
tième ! Pour passer à la ligne 
suivante, il faudrait donc que le pro- 
gramme revienne d'une ligne en ar- 
rière, dans le cas où l'interface affi- 
che sur l'écran Comme il n'est pas 
question d'avoir deux versions du 
programme, jai modifié le pro- 
gramme HCT.OBJ pour que le nu- 
méro de la ligne suivante ne soit plus 
calculé à partir du numéro de ligne 
fourni par le moniteur mais d'après 
un numéro tenu dans le programme. 
Et tout rentre dans l'ordre. J'ai égale- 
ment modifié l'instruction 70 du pro- 
gramme Basic MENU pour la déba- 
rasser de tout ce qui était devenu 
superflu. 

Je n'ai pu faire le test qu'avec l'inter- 
face dont je dispose. Il faudrait véri- 
fier que tout se passe bien æec un 
interface qui n'affiche pas en méme 
temps sur l'écran. 


HCT.OBJ modifié 


#9485.9498 


9465- 20 BE FD 
9468- A9 JD 85 25 85 96 20 C1 
9470- FE A Où 81 28 C9 49 Bo 
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947B- @4 C9 20 B@ 04 49 CO DO 
9480- 02 49 80 20 ED FD C8 CO 
948B- 28 DO EB ?0 GE FD E6& 96 
949û-— AS 96 C9 18 Di D4 60 

* 


Ligne 70 modifiée : 


70 VTAB 1: PRINT D1$"PR#’” S: 
CALL 37989 : PRINT D1$"PR#0” 


C. Leyo - 32 ällée de la meute - 
78110 Le Vésinet 


Suite à ma lettre, publiée dans Pom's 
12, concernant les incompatibilités 
que je constatais, sous Pascal ucsd, 
entre la carte interface Epson et la 
catte Eve Chat Mauve, j'ai le plaisir 
de vous annoncer que j'ai enfin 
trouvé la solution de ce problème. 

{ s'agissait d'interférences entre les 
deux cartes à travers les circuits de la 
carte mère. On élimine ces interfé- 
rences en soudant un condensateur 
céramique de 220 picofarads 50V 
non polarisé (09 Frs) entre les bro- 
ches 3 et 7 de la puce 6À sur la 
carte interface Epson: on dispose 
alors à nouveau de l'intépalité des 
fonctions des deux cartes. Cette solu- 
tion a été trouvé, dans le courrier des 
lecteurs (octobre 84) de Call Apple, 
par un lecteur assidu de Pom's {M 
Koenig). 

Jean-Pierre Januel - 5 rue Duperré - 
75009 Paris. 


J'ai acquis, il y a quelques mois, la 
souris Apple Mouse Il et son inter- 
face pour mon Apple H+. Program 
mant assez souvent en Pascal. j'ai 
donc voulu l'intégrer à mes program 
mes par le biais de menus à la Ma- 
cintosh. Une première série de Units 
a vu le jour et m'a donné satisfac- 
bon, dans un premier temps. Dans 
un premier temps seulement, car la 
souris peut fonctionner en deux 
modes. En mode passif, le plus sim- 
ple, qui oblige donc le programme 
utilisateur à l'interroger régulièrement 
pour détecter les éventuels mouve- 
ments et déplacer le curseur en 
conséquence. C'est sur ce principe 
que mes premières réalisations ont 
été faites. Cela fonctionne très bien, 
mais si l'intervalle qui sépare les in- 
terrogations est trop long {à cause 
des traitements qu'effectue le pro- 
gramme) le mouvement du curseur 
est saccadé. 

La solution est d'utiliser le deuxième 
mode de fonctionnement. à savoir le 
mode mettant en jeu les interrup- 
tions. Pour ceux qui ne connaissent 
pas le problème, je précise rapide- 
ment que l'interface de la souris en- 
voie alors au 6502 un signal d'inter- 
rupbon lorsque Ja position de celle-ci 
a changé, ou lorsque le bouton a été 
appuyé (ou les deux). { suffit de 
mettre en place une routine de prise 
en charge de cette interruption, dont 
le rôle sera de lire les coordonnées 
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de la souris et de déplacer le curseur 
en conséquence. L'avantage immé- 
diat est que, quelle que soit la lon- 
gueur des #aitements du programme 
utilisateur, le curseur suivra toujours 
régulièrement les interruptions dans 
ce système. 


J'ai expérimenté ce mode de fonc- 
tionnement, avec succès, sous DOS 
3.3 et j'ai décidé de l'appliquer en 
Pascal. C'est là que les choses se 
corsent, car je ne sais pas, de façon 
précise, comment on peut gérer les 
interruptions dans ce système. Je 
lance donc un appel auprès des lec- 
teurs qui auraient des renseigne- 
menti à me fournir, quitte ensuite à 
centraliser tous les éléments qui 
m'auront été communiqués pour en 
faire un article synthétique si le sujet 
intéresse d'auhes lecteurs. Les don- 
nées qui me manquent sont, entre 
autres : 

1-l'adresse du vecteur d'interruption 
(il semblerait que ça se passe ailleurs 
qu'en $FFFE —$FFFF). 

2-Les précautions à prendre {doit on 
sauvegarder des informations particu- 
lières autres que les registres géné- 
raux). 

3-et tout ce à quoi je ne pense pas 
ici, mais qui à son importance dans 
la manipulation. 

Merci d'avance à tous ceux qui se 
pencheront sur le problème. Pour les 
autres {qui manqueraient d'informa- 
tions mais que le problème intéresse) 
j'ai l'intention. si le courage ne m'a 
pas quitté d'ici là d'envoyer à notre 
revue préférée le résultat de mes co- 
gitations et nuits blanches. 


Eric Pascual - 29 rue Foucher Lepel- 
letier - 92130 Issy Les Moulineaux 


Le programme de Startup avec saisie 
de date, publié dans Pom's 16, est 
foit intéressant. Toutefois, un pro- 
blème se pose avec la version 1.2 du 
Pascal UCSD car l'adresse de la date 
n'est pas la même que dans les ver- 
sions précédentes. J'ai trouvé qu'elle 
était égale à -21252, et indique aux 
lecteurs intéressés la démarche à sui- 
vre pour arriver à ce résultat. 

D'après la déclaration du type DATE, 
une telle variable occupe deux cases 
mémoire ADDR et ADDR+I1 rem- 
plies comme suit : 


Année (7 bit). jour (5 bits), mois (4 
bits). 

Ainsi, pour la date du ler janvier 
1985. les 16 bits de ADDR et 
ADDR+ 1 seront : 
0000001800010001 soit la valeur 2 
dans ADDR+ 1 et la valeur 17 dans 
ADDR, 


Î suffit d'enregistrer cette date grâce 
à la commande Date) du Ffiler) puis 
de chercher deux adresses consècuti- 
ves contenant les valeurs 17 et 2. Ii 
est inutile d'explorer les 64K de 
RAM, la date se trouvant aux alen- 


tours de -2000 à -2500, dans les 
autres versions. 


Chiistian Bellot - 21 bd Dahdah - 
13004 Marseille 


Je possède un Apple fe et la carte 


Chat Mauve et désire utiliser le pro- 
gramme Visicalc dans les meilleures 
conditions. Or aujourd'hui. j'obtiens 
un écran où les colonnes paires {mé- 
moire auxiliaire) restent noires Que 
dois-je faire pour résoudre ce pro- 
blème ? 

Dominique Dubois - BP 410 - 210 
Antsiranana - Madagascar 


La version de Visicalc que je possède 
date de plusieurs années et est donc 
incapable de reconnaître et d'utiliser 
la carte 80 colonnes de l'Apple //e. 
Si l'on boote sur Visicalc à l'altu- 
mage, il fonctionnera en 40 coion- 
nes. Si l'on fait PR#3, puis PR#6 
pour booter Visicalc, il y aura un affi- 
chage des 40 colonnes de Visicalc 
sur un écran de 80 colonnes, donc 
une colonne sur deux. Je ne sais pas 
si les version récentes de Visicalc 
sont adaptées au //e. 

En revanche, les nouveaux tableurs 
{Magicalc, Appleworks, Multiplan, Vi- 
sicalc advanved version.) connais- 
sent le //e et fonctionnent en 80 co- 
lonnes. 





Je me pose de nombreuses questions 
et je vous serais reconnaissant de 
bien vouloir me répondre : 

1-Est-il possible de rendre compatible 
Magic Window à la police de caracté- 
res offerte par l'Epson ? Celle-ci étant 
composée de “ESC” ou de 


"CHRS$(27) +..." alors que Magic 
Window permet seulement les 
CIRE 


2-L'assembleur Big Mac est allergi- 
que au ‘OBJ” pourriez-vous expli- 
quer le rôle et l'utilité de ‘’OBl" fje 
commence à peine et c'est dur, 
dur...) 

3.Y at-il dans Big Mac une 
commande remplaçant le “EPZ'" du 
Lisa: à moins que Big Mac fasse la 
distinction suivant le "Badresse 7? 
4-Dans tous les listings que j'ai pu 
lire, il n’y à pas une seule routine de 
revectorisation de l'ampersand (&)} 
qui soit semblable. Nexiste-t-il pas 
une routine standard ? 


Pascal Bordais - BP 45 - 94350 Vil- 
liers sur Marne 


1-N'ayant pas d’'Epson, il m'est diffi- 
cile de vous répondre. Toutefois, je 
vous propose de faire un essai sa- 
chant que “ESC” n'est autre que 
°CTRL + [” 

2-Sur Lisa 25, le code ‘OB}” indi- 
que adresse de début du pro- 
gramme objet qu'il faut sauver après 
assemblage par un BSAVE, soit au 
clavier, soit dans une commande 
DCM dans le fichier source. Ce code 


n'existe pas sur Big Mac, qui met 
d'autorité le programme objet en 
$8000 et permet de le sauver par le 
biais de la commande “O” du menu. 
Cette commande inscrit sur la dis- 
quette la vraie valeur du début du 
programme (donnée par ORG}), et 
non $8000 comme le ferait un 
BSAVE. 

3-Vous avez vous-même répondu à 
la question, Big Mac fait la distinction 
suivant l'adresse. En cela, il est plus 
intelligent que Lisa, celui-ci ayant be- 
soin d’un EPZ pour la page zéro. 

4-11 n'existe pas de routine standard 
de revectorisation de l'ampersand 
{&).Pour les commandes d'une seule 
lettre, je vous renvoie à ‘’Amper 
Jump & TSORT” paru dans Nibble 
Express {volume 2). 





En mode texte 80 colonnes des phé- 
nomènes éhanges se produisent avec 
la routine de “La programmation fa- 
cilitée” (Pom's 5). 

& LET donne une barre inverse ha- 
churée, 

& INPUT A$,Lx ne posftionne pas le 
curseur en début de ligne de pointillé 
mais sur la ligne au-dessous et à une 
distance du bord droit de la fenêtre 
égale à la longueur spécifiée pour le 
pointillé. 

Grâce aux articles d'initiation à f’as- 
sembleur, j'a pu remédier à ces pro- 
blèmes. 

Pour foption LET: il faut tester le 
mode d'affichage; si lon est en 80 
colonnes alors on divise par deux les 
adresses $6 et $7 qui sont respecti- 
vement la marge et la longueur + 
matge. Ainsi, en 80 colonnes la rou- 
tine est de nouveau exécutée après 
commufation des pages textes de Ja 
carte 80 colonnes. 

Pour loption INPUT: le saut à la 
sous routine du moniteur (JSR 
$FC10) est modifié pour aller en 
$9594 où l'on teste le mode d'afi- 
chage. Si le mode 80 colonnes est 
enclenché, le saut à $FC10 est rem- 
placé par un saut $CBDB {routine 
du au pour la carte 80 colon- 
nes). 


Marche à suivre : 


CALL-151 

BLOAD PROG48K 

93C9: 20 94 95 

9550: taper la récapitulation ci-après 
BSAVE PROG48K.A$9300,L$242 


9550- AD 16 CO OA 90 0S 46 06 
9558- 44 07 18 A4 06 C4 07 DO 
9560- 06 AD 96 94 91 28 60 81 
9568- 28 09 80 25 32 9t 28 AD 
9570- 18 CO 0A 90 0E 8B 55 CO 
9578- 81 28 09 90 25 32 91 28 
9580- 8D 54 CO C8 C4 07 96 OF 
9588- AD 18 CO 0À 70 04 Gé 06 
9590- 06 07 38 60 AD 18 CO 0A 
9598- 90 04 20 D8 C8 60 20 10 
F95SA0- FC 60 


Frédéric lvsic - 203 bis ave Napoléon 
Bonaparte - 92500 Rueil! Malmaison 
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DISQUETTES (sauf précision. toutes les disquettes fonctionnent sous DOS 3.3 sur Apple II + , //e ou /c) 


HAIFA (cf. Pomsn 55,00 F 
H-BASIC (cf. Pomsn 150.00 F 
MUSIC . : (cf Pomsn 80,00 F 
DISK: MANAGER . (cf. Pomsn 450.00 F 
DBSTAG SR e (cf. Pomsn 450.00 F 
JEUX A. (cf. Pomsn 80.00 F 
JEUX B. RSS (cf Pomsn 80.00 F 
BASSIN . . (cf. Pomsn 150,00 F 
E.P {cf. Pomsn° 15) 150.00 F 
sr MAX THE GOLBE TROTIER {cf. Pos 17) 55.00 F 
MAX (moniteur étendu) (Cf. ce numéro) 150.00 FE 
MACINTOSH N° 14.15-16 . 150.00 F 
MACINTOSH N° 17. 

MACINTOSH N° 18 ee 

PASCAL . Re …………. (cf. Pom's n° 15) 


RECUEILS 


N° 1, recueil des revues 1 à 4 nie à 140.00 F 
Disquettes d'accompagnement des numéros 1 à 4 psntsnsssess. 1à7 MLSOOO:F. 
N° 2, recueil des revues 5 à 8 . à 140.00 F 
Disquettes d'accompagnement des numéros 5 à 8 … à 190.00 F 


ANCIENS NUMEROS 
REVUES 4 |] 8 à  35.00F 


D: D pv D D © Q OO OO: OQ Nr 


PATES 
2: or 


a— pue 
se 


2 
PERTE 


” 





raser 











REVUES ain ETC 
14 Eté id? … à  4000F 


DISQUETTES | | 1 ae 











#6 Hoi 8 9 
Eh ] 12 13 [114 
(116 17 [118 
ABONNEMENTS 
POUR 6 NÜUMEROS à partir dun 


ABONNEMENT SANS DISQUETTES à Z200.00F 
ABONNEMENT AVEC DISQUETTES (Apple H + , //e, //c) à 48000F 




















TOTAL TTC 
Supplément expédition 
par avion à l'étranger 


MONTANT 
DÙÜ REGLEMENT 


Ces tarifs comprennent l'envoi postal en France métropolitaine. CEE et Suisse 
Supplément avion hors CEE : 15 F par numéro et/ou disquette 





Envetez ce bon et votre réglement à {Abonnés : n'oubliez pas de joindre f'étiquette-adresse). 
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Le nouveau 
LASER 3000 





PRO » complet 4 OS0' 
avec lecteur de disquettes à : "Fe TTC 





COMPARI ! DES \ )E LOGICIELS A 
CS DOIGTS 
6502 A / 2 Mhz + en option Z80A disponible. Polyvalent grâce à ses différents microprocesseurs 6502 A 
et Z80, le LASER 3000 offre le plaisir d'utiliser les meil- 
Dos 3.3 + en option CPM. leurs logiciels de langages, de gestion, d’organisation, de 
calculs scientifiques, de musique, soit des milliers de pro- 
32 K ROM. grammes : —PRACTICALC, 
— MULTIPLAN, 
64 K extensible à 192 K RAM. — SAARI, 
— ZAXXON... 


24 lignes. 
Carte 40 et 80 colonnes incorporées. 
ENCORE UNE RÉALISATION 
280x 192 et 560X 192 points. 
Carte couleur incorporée. 


81 touches ergonomiques, antifatigue. TECH 


Qwerty et Azerty au choix, avec pavé numérique 

+ 24 touches de fonction. 

VIDEO TECHNOLOGIE FRANCE 
19, rue Luisant -91310 Montihéry 


4 canaux / 6 octaves. Tél.(62901.93.40- Télex : 692 169F 


Centronics parallèle + en option RS 232 disponible. Documentation couleur et lisie des revendeurs, sur simple demande. 


Livré complet avec unité centrale, clavier Azerty accentué + pomme ouverte/pomme fermée, contrôleur et lecteur de disquettes 


+ manuel technique en français + câble. 




















CHEZ VOTRE LIBRAIRE OU EN BOUTIQUE SPÉCIALISÉE 


APPLE A 
LIVRE OUVERT 


| DES LIVRES ET 
DES DISQUETTES POUR TOUS 


POUR PROGRESSER 


Clefs pour Apple Il; clefs pour Apple //c: 


POUR DÉBUTER 


Apple pour tous; la découverte de l'Apple ; 


36 programmes Apple pour tous ; exercices pour 
Apple; 102 programmes pour Apple; la pratique 
de l'Apple tomes 1 et 2; le Basic et l'école tomes 

1 et 2 ; Macintosh le magnifique; programmer 

le Macintosh; multiplon pour Macintosh. 


POUR GÉRER 


La nouvelle comptabilité sur 
Apple tomes 1 et 2; La factu- 
ration et ses annexes ; outils 
financiers et comptables pour 
l'entreprise; la paie et ses annexes. 


À 


(| 












la pratique de l'Apple tome 3: l'Apple et ses 
fichiers; gestion de fichiers et de périphériques 
pour Applell/Poscal; Microbook, base de données 
pour Apple; Pascal UCSD sur Apple tomes t et 2; 
du Logo pour Apple; ProDOS sur Apple ; 
Pangrophe; modèles d'expression graphique. 


POUR DÉCIDER 


Modèles pratiques de décision 
tomes 1 et 2: Visicalc sur Apple: 
Multiplan pour Apple Il; bases 
de données sur Apple Il ; 
bibliothèque scientifique en 
Pascal; tests statistiques 
usuels. 


LA DÉCOUVERTE DE L'APPLE jh, 





; a 
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à, NOUVELLE COMPTABILITÉ SUR APPLE D ÎÜÎit 


L'APPLE ET SES FICHIERS 
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MULTI PLAN POUR APPLE 1 —— is 


ÉDITIONS OU P. 
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